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Preface 



Graphics are one of tlie most interesting applica- 
tions of microcomputers. Video games are one very 
obvious example. Graphics do more than just en- 
able us to play games. Graphics allow us to design 
and test models witliout actually building anything. 
The versatility of the computer allows us to create 
simulations that reflect the performance of tlie ac- 
tual model. 

But what are graphics and what is the scope of 
this book? Graphics, in its broadest sense, is the 
representation of data in a visual form rattier than in 
a numerical or written form. Graphics include ev- 
erything from graphs to pictures to abstract art. 
You name it; if it's visual, it's graphic. Specifically 
this book covers graphics that are written in Mi- 
crosoft BASIC primarily for use on microcomput- 
ers. The programs in this book do not purport to 
cover all areas of graphics but tliey give a cross 
section of some of the applications available to the 
microcomputer user and programmer. They in- 
clude bar graphs, two-dimensional graphs, art, 
three-dimensional graphics, and otliers. All of the 



programs that appear in the book were actually run 
on a microcomputer, and all the figures were 
printed by a dot matrix printer. 

Who can use this book? This book and its pro- 
grams are self-explanatory. For example, we dis- 
cuss several techniques for making three-dimen- 
sional figures before the relevant programs are 
presented. This book could be used in a classroom 
situation or as supplementary reading because it is 
designed to be an educational tool. It can be used by 
the designer who vidshes to see what a product will 
look like without actually building it. Some of the 
programs might be used or be of interest to ar- 
chitects. Whoever uses the programs should have a 
working knowledge of BASIC. 

The programs, which are written in Microsoft 
BASIC, may be used with slight changes on any 
given microcomputer that uses a Microsoft BASIC 
interpreter for its operating system. They are the 
best programs in BASIC for their specific applica- 
tion; they do not use functions that are peculiar to a 
particular manufacturer's version of BASIC. In 
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short, they are written in the BASIC used by most 
microcomputers today. 

It is my hope and intention that these programs 
will help you as a programmer and user to utilize 
your computer and your talents to their fullest. I 



would like to thank TAB BOOKS for their generous 
help and support in getting this book print. 

This book is dedicated to anyone who will take 
a simple idea to its furthest limit: may you find the 
significance of doing it. 
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Chapter 1 




Introduction 

Personal computers are capable of many functions: 
they can control home appliances, synthesize 
music, listen, talk, calculate biorhythms, compute 
complicated algorithms, and they can display 
graphics. Graphics are one of the most fascinating 
applications of computers because the output is in a 
form that is easily recognizable by everyone; it's 
visual. Since human beings are sight-oriented crea- 
tures, it makes perfect sense to display computer 
output in a visual form. 

GRAPHICS: THE VISUAL MEDIUM 

An old adage says, "a picture is worth a 
thousand words." This comment is still true today. 
Computers can be used to draw not only pictures 
but all kinds of graphs and plots as well as animated 
figures. This ability makes them invaluable as a 
graphic tool. 

Generally speaking, anything visual can be in- 
cluded in the category of graphics. We can think of 
graphics as an intelligent arrangement of points. 
These points can simply be black and white dots or 



to Graphics 

a spectrum of colored dots. Collectively tliey com- 
prise a graphic image. Because computers can re- 
produce and generate a series of points, they lend 
themselves readily to graphics. Since computers 
can manipulate these points, they are also useful for 
animated graphics. 

Advantages of Pictures 

Why are pictures so useful? Because ev- 
eryone, even tlie smallest child, knows what a pic- 
ture represents. A picture is a realistic representa- 
tion of a collection of objects. We quite naturally 
relate to pictures. 

Pictures can be simple diagrams or figures or 
they can be complex images. They can be realistic 
or they can be abstract. They can also be imaginary. 
Whatever their nature, they convey an almost in- 
stantaneous meaning. 

Using Computers for Graphics 

What kinds of images can computers create? 
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The answer lies with the sophistication of the com- 
puter system and the imagination of the program- 
mer. Practically speaking, the images run the 
gamut from simple black-and-white still figures to 
animated scenes in full color. As one increases in 
graphic sophistication, larger computers are re- 
quired. 

Personal computers of modest size are capable 
of some rather interesting graphics. Almost every 
computer can draw a graph of some land. Most are 
able to display the graphics necessary for a visual 
game, given the proper programming. Computers 
with sound and color can augment the realism of the 
visual display. An imaginary world in microcosm 
can be created within the memory of the personal 
computer. Again, the kinds of applications depend 
on the capability of the computer system and the 
imagination and talent of the programmer. 

MATHEMATICAL DEFINITIONS USED IN GRAPHICS 

All computers process numerical data. The job 
of the programmer is to write an algorithm in a 
iaiigudgc ixiat tiic couipULci Caii iiitcrprci anci lO lisc 
that algorithm to transform numerical data into vis- 
ual data. Consequently, a fundamental understand- 
ing of mathematics is required. 

Points, Lines, Curves, Planes 

All images are made of points. Sometimes it's 
more convenient to think in terms of the individual 
points themselves, as in an X-Y plot. For comput- 
ers, a point is the smallest dot that the computer 
can display on the video display screen. The posi- 
tion of that point relative to other points would give 
that point its meaning. On some systems a point 
would be a tiny rectangle illuminated on the screen. 

ter with a dot lit (on a visual screen) or printed (on 
paper). Still others might simply use a period, plus 
sign, or lowercase "o" to designate a point on a 
graph (see Fig. 1-1). 

Lines are simply a linear arrangement of 
points. Lines can be vertical or horizontal, or at any 
angle in between. They are drawn by placing ap- 
propriate graphic characters at specific print posi- 
tions on a screen or paper (see Fig. 1-1). The 



computer program would control what character to 
print and where it should be placed. 

Curves are lines with variable linearity. 
Curves, like lines, are computed and plotted by 
software. To draw a circle, for instance, the com- 
puter would plot all points a given distance from a 
specific coordinate. 

Planes are all points within a specified bound- 
ary. The boundary might be intersecting lines or 
curves. A plane might be dxa^m as all the points 
within a given distance from a specific coordinate 
on the surface. 

Graphs and Plots 

Graphs and plots are very similar. We can 
think of plots as figures containing a set of points, as 
on an X-Y plot. Graphs could include figures like the 
bar graph (histogram), where rectangles are 
positioned along an axis. The difference is trivial. 

Plots can have more than two axis, i.e. , more 
than two dimensions. The third dimension might be 
at a given angle relative to the other axes. This 

,,,^,-,1^ ^rr.-. fV.^-.-..". .-Itr^^ir^c-.^.n-til i^ffn.^f '.TTViir-V; TTtirrVlf 

make the image more realistic. 
Pictures 

Mathematical pictures can be made by posi- 
tioning figures defined mathematically on the video 
display. A simple example might be a game board, 
such as a chessboard or a backgammon board. As 
the game is played, pieces are moved on or re- 
moved from the board. Animated graphic figures 
are another case, however. Generally the more 
advanced the graphics, the more heavily you must 
rely on the computer for generating the pictures. 

TYPES OF COMPUTER GRAPHICS 

Let's now turn our attention to some types of 
graphics. There are artistic works created by pro- 
grammers as a form of self-expression. There are 
realistic graphics, which attempt to depict the 
world as we see it and there are abstract graphics, 
which are exaggerations of reality. There are 
noninteractive graphics, which we cannot adjust or 
change, and there are interactive graphics, which 
we cm change. 
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Fig. 1-1. Some examples of computer graphics. 
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Artistic Creations 

Computers are a natural medium for video art. 
Very elaborate images can be synthesized, stored, 
modified and otherwise manipulated by computer. 
Color computers can be used to make aesthetically 
pleasing pictures. Some are so realistic that they 
can be mistaken for photographs. 

There are all kinds of video art. There are still 
works and animated works, realistic and abstract 
art, and hand-made and computer-generated crea- 



tions. The kind of art that the programmer-artist 
makes depends on what he wishes to convey. 

Realistic Grapliics— Simulations of Reality 

Computer images of real objects such as build- 
ings are realistic graphics. Sometimes only particu- 
lar aspects of the real object might be displayed. 
Even in these cases, if the picture is an accurate 
representation of reality, it is an example of realis- 
tic graphics. Realistic graphics attempt to look like 
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Fig. 1-2. Abstract graphics, orbiting objects. 



4 




5 



the objects that they represent. Figure 1-1 also 
shows realistic plajing cards, for example. 

Abstract Graphics— Exaggerations of Reality 

Abstract graphics are another story. Like 
abstract art, they are distortions of the real world, 
altered so as to highlight some feature, perhaps. 
Figure 1-2 shows five sets of points which form 
concentric rings about a cross at the center. This 
image might represent orbiting objects. Figure 1-3, 
which looks like moire patterns, is even more 
abstract. Abstract images can be made from, realis- 
tic images by using programming that modifies 
some feature of the realistic object. 

Noninteractive Graphics 

When a programmer is behind a keyboard con- 
sole, he can sometimes change what he sees instan- 
taneously and sometimes he can not. If he can't 



readily change the display, he is using noninterac- 
tive graphics. Digitized portraits of someone and 
the figures that we have seen already are examples 
of noninteractive graphics. 

Interactive Graphics— Controlling What You See 

Interactive graphics are far more interesting 
than the noninteractive variety, because you are 
actively involved with what is happening on the 
display screen. Any video game player can tell you 
that. Games are not the only application of interac- 
tive graphics. You can use your computer as a 
sketchpad with the proper programming. By typing 
certain keys you can draw lines, add color (with 
color computers), or shade areas. This is called 
"painting". There are any number of possibilities 
with interactive computer graphics. The limits are 
determined only by your imagination and your will- 
ingness to pursue an idea to its logical conclusion. 
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Chapter 2 





wo-Dimensional Graphing 



One of die easiest ways to represent numbers visu- 
ally is to construct a graph or plot. On a graph, like a 
bar graph, a number is equivalent to a length of a 
line. On a plot a number is a point with a particular 
position. Since these figures are drawn on a flat 
surface with axes that are perpendicular, we call 
them two dimensional graphs. 

HISTOGRAMS: PLOTTING 

AN ORDERED SET OF NUMBERS 

Let's say that a realtor wanted to compare 
the number of houses that he sold each month over 
12 months. First he would obtain the number sold 
each month, starting with the first month and going 
through the last montli. He would then have an 
ordered set of numbers. To compare these num- 
bers to themselves, he might construct a bar graph 
or histogram. Then he would have a visual idea of 
how each month compared. 

The histogram is a graph that has bars running 
either vertically or horizontally along some axis. 
Each line represents some number or element in a 



set of numbers. Usually there is a scale present. 
The bars might be narrow if there are many num- 
bers or wide if there are few numbers. The bars 
may be colored to provide contrast. Bar graphs are 
generally titled to provide explanations. Tliey may 
or may not start at zero. 

Histograms are used to show comparisons. 
Our realtor, in the example, might notice trends if 
he made a histogram for each of several years. He 
might notice that not only do houses sell poorly 
during the winter months, but when compared to 
prior years, the number of houses sold decreased. 
The histogram helps him by making a basis for 
comparison and providing a visual image of his 
sales. He might then alter his business practices. 

Let's jump right into an example of a BASIC 
program that makes a histogram. We will look at 
two similar histogram programs and then at a pro- 
gram that produces a two dimensional plot of points. 

Figure 2-1 shows a histogram using the upper- 
case H as the graphic character. Twelve numbers 
that have values ranging from tliree to eight are 
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Fig. 2-1. Histogram using the uppercase H. 



plotted. Each bar is three characters wide and there of three. Alternately, we could have had zero as the 
is a space between the bars. The bars are proper- lower limit on the Y axis. The listing for this prog- 
tional to the values of each number above the value ■ ram follows. 



10 REM HISTOQKHM GRHkHIHG kROGRApI 

Ktl'l M.<KJ. I 1 cn ev I j,fiL.<inr •-■ = •_' rini_i_c. r 
30 REM 

40 QOSUB 200 s REM DATA READING SUBROUTINE 

50 GOSUB 300s REM C?ATA SORTI.NG SUBROUTI.NE 

60 GOSUB 400 s REM HISTOGRAM PRINTING SUBROUTINE 

70 END 

100 REM DATA FOR HISTOGRAM 

lie DATA 12SREM THIS IS N, THE NUMBER OF ELEMENTS IN SET 
120 DATA 5? 6? 8? 4? 3.' 7? 3? 4? 7? 4? 5? 6 

130 REM LINE 12© IS THE ORDERED SET OF N ELEMENTS 
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200 

210 
220 
230 
240 
250 
260 

300 

310 
320 
3361 
340 
350 
360 
370 

400 

410 
420 
430 
440 
45£i 
460 
470 
4S0 
490 

500 

510 
520 
530 
540 
550 
560 
570 
58£i 
590 

600 

610 
620 
630 
READ 



REM DATA READING SUBROUTINE 

READ NsREM THIS IS THE NUMBER OF ELEMENTS IN SET 

DIM K'::n::'SREM ALLOCATE SPACE IN MEMORV FOR SET X 
FOR J=l TO N5REM LINES 230-25© READ DATA INTO SET 
READ X<jy 
NEKT J 
RETURN 
REM 

MIN=Kc:i::' 
MAX=X < 1 > 
FOR J=l 



DATA SORTING SUBROUTINE 
:REM assign ARBITRARV MINIMUM 
SREM ASSIGN ARBITRAR'' 
TO N:REN LINES 330-360 



'...lALUE 
MAKIMIM UALUE 
FIND REAL MIN 



OF SET 
OF SET 
AND MAX 



K<J><MIN 



IF 
IF 

NEXT J 
RETURN 
REM 

I...IID=64 
HGT=30 
C*="H" 
PRINT 
S=8!REM 
IF NXWID-:; 



THEN 
THEN 



MIN=X'::J::' 

M Ax=:--: <: J > 



REM 
REM 
REM 

HR*<12) 



HISTOGRAM PRINTING SUBROUTINE 
MAXIMUM UIDTH OF HISTOGRAM 
MAXIMUM HEIGHT OF HISTOGRAM 
GRAPHIC CHARACTER TO BE USED 
SREM CLEARS UIDEO SCREEN 
ALLOW SPACE FOR ORDINATE SCALE 
THEN PRINT "TOO MANV NUMBERS" s RETURN 



L=INTc:<WID-S>--t:N+i::'>!REM ASSIGN WIDTH TO BARS IN GRAPH 
SP= I NT ■:. LOG < M AX-M I N > > * < M AX-M I N > ■■•■N s REM ORD I NATE I NCREMENT 
IF (;MAX-MIN::'.-SP*2<<HGT-4::' THEN SP=SP--2s GOTO 498 
FOR K=MAX TO MIN~SP STEP -SP 
FOR J=l TO N 

IF J=l THEN PRINT K us REM PRINT ORDINATE UALUE 

PRINT TAB':: .J*L+S>; SREM TAB TO EACH BAR IN GRAPH 

IF X'M ::•>=!< THEN FOR M=l TO L-1: PRINT C*?sNEXT M 

NEXT J 

PRINT 

NEXT K 

PRINT 

IF L<=2 THEN RETURNS REM TOO MANV ELEMENTS TO PRINT SCALE 

FOR J=l TO NsREM LINES 600-620 PRINT ABSCISSA SCALE 

PR I NT TAB < J*L+S+SGN >■. < L- 3 > ^2 > * < L--3 > x-2 > 5 J ? 

NEXT J 

RETURN 



Let's look at the program line by line. Lines 
10-30 are remark statements stating tlie nature and 
author of tlie program. Remarks are useful to help 
identify programs and explain lines. Use them 
when writing your own programs. Line 40 goes to a 



subroutine that reads data. Line 50 directs the com- 
puter to a subroutine that sorts the data and finds 
the maximum and minimum values of the data en- 
tered. This is used to compute an appropriate scale. 
Line 60 prints out the histogram using the sub- 
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routine that starts at line 400. Line 70 ends the 
program. 

Line 100 is a remark statement used as a 
header for lines 100-130. Line 110 has a data state- 
ment and then a remark statement explaining it. It 
says that there are 12 elements in the ordered set 
that the computer will read to make the histogram. 
Line 120 is the data statement with the 12 values 
that we will use. Line 130 is a remark statement 
describing line 120. 

Line 200 is a remark statement heading the 
subroutine that actually reads the data contained in 
lines 100-130. Line 210 is a read statement and a 
remark statement. It reads the first value that it 
finds in the first data statement that it can find in the 
program. That data statement is in line 110. It 
assigns that value to the variable named N. Notice 
that a colon separates two statements that are on 
the same line and that the remark statement is last. 
Reason? The computer ignores anything after a 
remark on a line. Line 220 is a dimension statement 
that allocates space in memory for the twelve val- 
ues that we want to graph. Specifically it creates a 
vector (a linear array) called X consisting of N 
elements. The remark statement on the same line 
explains this. Lines 230-250 contain a "loop" that 
reads the twelve values from available and unused 
data statements. It creates a variable called J to be 
used as a counter. J is originally set at 1 and will 
count up to N, which is 12. Line 240 is a read 
statement thatplaces a 5 (from line 120) into the set 
X at the J (initially the first) position. Line 250 is a 
next statement and seeks to increment the variable 
J. If J has increased to the value N, it will direct the 
computer to go on to the next line, line 260. At this 
point J has the value, 1, so the computer wall direct 
control to the first line number after the for state- 
ment, line 240, to read more data. J will have been 
increased to 2 before line 240 is executed, however. 
Line 240 then enters the value 6 into the second 
position of set X. This process continues until J is 
equal to N, when the return statement in line 260 
directs control back to line 50, the subroutine being 
completed. 

Line 50 calls the subroutine starting at line 
300, which sorts the data entered in set X. Lines 



300 is a remark statement describing lines 300-370. 
Line 310 assigns the first value in set X to a variable 
called MN. We will use this value as a basis of 
comparison when finding the lowest number in the 
set. Line 320 assigns the first value in set X to a 
variable called MAX. MAX is a value that will hold 
the largest number of set X. Lines 330-360 are 
another loop. We will use the same variable, J, for a 
counter. This loop finds the true maximum and 
minimum values in set X. Line .340 contains an if 
statement that says if the Jth element in set X is less 
than the value of MIN, assign that value to MN. 
MIN is now equal to the value of X(]). Line 350 says 
if the Jth value of set X is greater than the value of 
MAX, increase the value of MAX to be equal to the 
Jth value of X. Line 360 is a next statement which 
vdll increase the counter, J, up to the value N and 
send control back to the first statement after the for 
statement, line 340. If J is already equal to N, 
control goes to line 370, which is a return state- 
ment. This statement directs control back to line 60 
because the subroutine is completed. 

Line 60 calls the subroutine that starts at line 
400. This subroutine actually prints out the histo- 
gram. Line 400 is a remark that describes the sub- 
routine. Line 410 assigns the value of 64 to a vari- 
able called WID. The remark statement on that line 
explains that this value will be used when scaling 
the maximum width of the histogram. If your video 
screen is less than 64 characters wide, you might 
want to change WID to a smaller value, say 32 or 
40. Line 420 assigns the value of 30 to the variable 
HGT, which is used to scale the height of the bar 
graph. Line 430 assigns the literal character, H, to 
the string variable, C$. This string variable con- 
tains the literal character to be used to draw the 
bars in the graph, as the remark on that line says. 
Line 440 causes the computer to print the character 
that has an ASCII code of 12. 12 is the code for the 
form feed on printers. It will also clear the video 

\^x.\^K.ii. ^^v/i^ipl^^cv..Iy. ^\jiti\^ (.-uiiipulci o Call uac UlC 

command CLS for the same purpose. PRINT 
CHR$(12); will work on more computers, though. 
The semicolon in this statement keeps the print 
position on the same line after the clear. That posi- 
tion is in the upper left corner of the video screen. 
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Line 450 assigns tlie value 8 to the variable named 
S. S is the number of spaces that we will allow the 
computer to print for the numbers of the ordinate 
(Y) axis. Line 460 is an if statement that says if N is 
greater than the width minus S, an error message 
stating that there are too many numbers to make 
bars for will be printed, and control will return to 
line 70, which is tlie end statement. Line 470 as- 
signs tlie value of INT((WID-S)/(N+1)) to the 
variable L. INT is the integer command and rounds 
fractional numbers down to next integer. L is tlie 
width, in characters, that each bar will be in the 
graph. Line 480 attempts to divide tlie vertical axis 
into as many reasonably spaced increments as pos- 
sible still using as much height as it can. SP could 
alternately be assigned a specific value if you'd like. 
Line 490 says that if the value assigned to SP in line 
480 is too large (making too many lines), divide the 
value of SP in half and then go to line number 490 
again to see if SP is still too large. If it is, it will be 
divided in half and checked again. Eventually SP 
will be made small enough to work and the com- 
puter will go on to line 500. 

Line 500 is the start of a loop with a counter, 
K, assigned initially to the value equal to MAX. 'ITie 
value of K in this case will decrease to the value 
MIN-SP by steps (or increments) of -SP. Line 
510 is another loop inside the K loop, and uses the 
variable J as a counter. These loops are said to be 
"nested." J will go from 1 to N. The J loop will be 
executed many times because it is inside the K 
loop. ITie K loop is for the rows and the J loop is for 



tlie columns. Line 520 says that if J is equal to 1, 
print the value of K and stop the print head in that 
position (because of the semicolon). Line 530 is a 
print tab statement that moves the print position to 
the J*L-fS position and stops it there. Line 540 says 
if X(J) is greater than or equal to K, print L- 1 
graphic diaracters and stop the print head. This is 
accomplished by yet another nested loop, the M 
loop. Not all versions of BASIC allow for tlie if- 
then— for-next combination so be careful. Line 550 
terminates the J loop if J gets larger than N. Line 
560 causes the print head to be moved to tlie begin- 
ning of the next line. (Remember the semicolons 
holding the print head at specific positions?) Line 
570 either increases K or terminates the K loop. 
Line 580 is a simple print statement diat puts a 
space between the bars and the X axis scaling num- 
bers. Line 590 says that if L is less than or equal to 
two, skip the printing of tlie abscissa scale because 
there are too many elements in the set to print an 
index for each of them. Control will return to line 70 
which will end the program. 

Lines 600-620 print the abscissa scale under- 
neath the bars in the graph. The J loop goes from 1 
to N. Line 610 will tab to the approximate center of 
the bar, print the index (the value of J), and hold the 
print head in that position. Line 620 will tlien in- 
crement J and go back to line 610 to print the next 
number under the next bar. This loop continues 
until J exceeds the value N. Line 630 will return 
control to line 70, which ends the program. That's 
it! The modified program listing follows. 



10 REM HISTOGRAM GRAPHING PROGRAM 

20 REM WRITTEN BV TIMOTHV .J. O'MALLEV 

30 REM 

40 QOSUB 200: REM DATA READING SUBROUTINE 

50 GOSUB 300! REM DATA SORTING SUBROUTINE 

60 GOSUB 400: REM HISTOGRAM PRINTING SUBROUTINE 

80 GOSUB 1000! REM OPTIONAL SCREEN DUMP TO PRINTER 

90 END 

100 REM DATA FOR HISTOGRAM 

110 DATA 12: REM THIS IS N.- THE NUMBER OF ELEMENTS IN SET 

120 DATA 5:. 6:. 4? 3.-. 7? 3.- 4? 7? 4? 5.- 6 

130 REM LINE 120 IS THE ORDERED SET OF N ELEMENTS 

200 REM DATA READING SUBROUTINE 
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210 READ HsREM THIS IS THE NUMBER OF ELEMENTS IN SET 

220 DIM :K'::h::'SREM ALLOCATE SPACE IN MEMOR'v" FOR SET K 

230 FOR J=l TO NsREM LINES 238-250 READ DATA INTO SET 

240 READ X<J> 

250 nej-=:t J 

260 RETURN 

300 REM DATA SORTING SUBROUTINE 

310 MIN=J-:;';:i>sREM ASSIGN ARB I TRARS' MINIMUM UALUE OF SET 
320 MAX=X'::i::-sREM ASSIGN ARB I TRARS' MAKIMIM UALUE OF SET 
330 FOR J=l TO N8REM LINES 339-360 FIND REAL MIN AND MAX 
340 IF X -MX MIN THEN MIN=K'.:J> 
350 IF >i<J>>mK THEN MAX^XCJ) 
360 NEXT J 
370 RETURN 

400 REM HISTOGRAM PRINTING SUBROUTINE 

410 I...IID=60: REM MAXIMUM WIDTH OF HISTOGRAM 

420 HGT=30:REM MAXIMUM HEIGHT OF HISTOGRAM 

430 C*=CHR*'::i?7>!REM GRAPHIC CHARACTER TO BE USED 

440 PRINT CHR*':; 12> " s REM CLEARS UIDEO SCREEN 

450 S=8sREM ALLOW SPACE FOR ORDINATE SCALE 

460 IF N>'::WID-S> THEN PRINT "TOO MANV NUMBERS" s RETURN 

470 L=INTc:t:WID-S>.-<NH-l>>sREM ASSIGN WIDTH TO BARS IN GRAPH 

480 SP== I NT <: LOG < MAX --M I N > > * < MAK-M T N :> -H s REM ORD T HATE T HCREMENT 

490 IF '::MAX~MIN>.-SP*2<<HGT~4) THEN SP=SP.''2s GOTO 498 

500 FOR l<=MAX TO MIN SP STEP -SP 

510 FOR J==l TO N 

520 IF J=l THEN PRINT K5sREM PRINT ORDINATE UALUE 
530 PRINT TAB< J*L+S> ; s REM TAB TO EACH BAR IN GRAPH 

540 IF X<J>>==K THEN FOR M=l TO L IMPRINT C$5 5 NEXT M 

550 NEXT J 
560 PRINT 
570 NEXT K 
580 PRINT 

590 IF L02 THEN RETURNS REM TOO MANV ELEMENTS TO PRINT SCALE 
600 FOR J=l TO H5REM LINES 689-620 PRINT ABSCISSA SCALE 
6 18 PR I NT TAB C J*L+-Sh-SGN < ■:; L -3 > y'2 > < L~3 > 2 > ; J ? 
628 NEXT J 
630 RETURN 

1090 REM OPTIONAL SCREEN DUMP TO PRINTER 

1010 DIM UA<38:. 60> sFOR J=l TO 38: FOR K = l TO 68 

1 028 UA <: J . i< > =PEEI< < 64* < J - 1 > +K-3969 > " NEXT l< , J 

1038 Nl=3*2-INT<6*RND<i::'>sREM USE RANDOM PIN 

1048 POKE 260:. 0!i PCiKE 26 1.0s POKE 8. 62s POKE 1,27 

1 058 POKE 2 n 285 s POKE 3,12s POKE 4 , 224 s POKE 5 , 28 1 

1 060 XX=USR < 8 > s POKE 1 , 65 s XX=USR -C 8 > s POKE 1,2s XX=USR < 8 > 

1070 FOR J=^^l TO 30 s FOR L=-3 TO -1 
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1080 FOR K-0 TO 59: IF I<..-15=]:NT<I<.-15> THEN QOSUB 1120 

1090 CH=PEE!< ■:: L--8* <255-UA< J. Kh-1 ::■>>; FOR M=7 TO O STEP -1 

1 1 00 POKE 1 ^ H 1 *SGN <. CH AND 2 -t1 ::■ s ;:::x=USR •:: > : NEXT M . I< 

1110 POKE 1, 13! XK=USR <©>! NEXT L , J 5 POKE 1, 12: XX=USR <@>: RETURN 

1 1 20 POKE 1 r 27 s XX=USR <B>i POKE 1,75". XX=USR C 6 > 

1 1 3 F-' K E 1 :. 12 K K K ~ U S R ■:. O > 5 p K E 1 O : X X = U S R < > : R E T U P H 

REHl.>',' 



Now let's consider the altered program. In the 
second version of this histogram graphing program, 
we will change line 430 to assign the literal charac- 
ter whose ASCII code is 177 to the string variable, 
C$. This is where a lot of computers differ. We 
want the computer to print a solid rectangle instead 
of a capital H. A solid rectangle on some computers 
has an ASCII code of 191 or another number. Check 
your system's manual. Figure 2-2 shows the histo- 
gram printed using a special graphics character. 
Some computers do not have any special graphic 
characters at all. In tliis case you might want to 
substitute the code for the # sign or the code for the 
asterisk. 

We have also added lines 80 and 90 and deleted 
line 70. Line 80 calls the subroutine starting at line 
1000, which is an optional screen dump. This takes 
what is located on the screen and prints it on paper. 
This subroutine is highly system-specific. It de- 
pends on the printer that you are using as well. 
Many manufacturers provide screen dump routines 
for their computers, so substitute that routine at 
line 1000. We will go through subroutine starting at 
line 1000 very briefly now. 

Line 1000 is a remark describing the sub- 
routine. Line 1010 dimensions an array called VA. 
This two-dimensional array consists of 30 rows and 
60 columns, corresponding to HOT and WID, re- 
spectively. We could also have written it DIM 
VA(HGT, WID) in some BASICs. We also start a 
nested J and K loops. Line 1020 looks at what 
characters are in what positions on the screen and 
assigns the ASCII codes of those characters to the 
corresponding positions in the array, VA. The 
upper left corner on one system has a memory 
address of -3968, while on another system it has 
the address of 15360. Systems are not compatible 
in their memories. Line 1030 assigns one of the 



pins on a dot matrix printer to be used in the print- 
ing. Again all printers are not alike. Lines 1040- 
1060 poke a Z-80 machine language subroutine into 
a reserved section of memory. The rest of this 
subroutine simply sends the array, VA, to the 
printer line by line. Don't be overly concerned 
about understanding it. 

Advantages and Disadvantages 

Histograms have the advantage of displaying 
data visually and providing a basis for comparison 
between elements in a set. Histograms have the 
disadvantage of being misleading, particularly if the 
scale does not start at zero. Figure 2-1 starts at 3 
and goes to 8. Since it does not start at zero, it 
might appear at first glance that some of the values 
are several times those of some of tlie others; they 
are not. Sometimes histograms can show an unfair 
comparison. Trends or the lack of them, may not be 
reflected in the histogram. 

CARTESIAN COORDINATES: 
PLOniNG TWO DATA SETS 

When you have pairs of numbers in a set, it 
might be useful to plot the numbers as points. Since 
the numbers may not be evenly distributed on 
eitlier axis, a histogram would be out of the ques- 
tion. In this case, we need a Cartesian coordinate, 
or X-Y, plot. 

The X-Y plot is a true two-dimensional plot; it 
has an axis that is at right angles to the otlier axis. 
Generally, the horizontal axis is the abscissa, or X 
axis, and the vertical axis is the ordinate, or Y axis. 
Points are plotted according to the scale on each 
axis. 

The X-Y plot is very useful for statistical pur- 
poses. You can see how points are clustered to- 
gether, how Y-values change in relationship to 
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changes inX-values, and how linear the points are. 
If you can manipulate the independent variable (the 
abscissa values) and the dependent variable (the 
ordinate values) is altered as a consequence, you 
can prove a functional relationship. Plots thus make 
statistics meaningful. 

An Example in BASIC 

Let's now look at anotiier BASIC program, one 
that will plot a two-dimensional figure. Figure 2-3 



shows the display of the program. This program 
plots the percent saturation of hemoglobin as a 
function of the partial pressure of oxygen in ton 
(units of pressure equal to 1/760 of an atmosphere). 
Lowercase letter os represent the points plotted. 
Notice that the computer made titles for the axes 
and the plot. This plot shows that as the partial 
pressure of oxygen increases, the percent satura- 
tion of hemoglobin increases and asymptomatically 
approaches 100%. 
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20 
30 
40 
50 
60 
70 
80 
85 
90 

100 
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120 
130 
140 
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1 60 
170 
180 
1 90 

200 

210 
220 
230 
240 
250 
260 
270 
280 
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300 

3 1 

400 
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REM 
REM 
REM 
REM 
CLEAR 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
EHD 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

REM 

DATA 

DATA 

REM 

READ 

F?EAD 

READ 

READ 

DIM ':■ 

FOR . 

READ 

HEKT 

READ 

READ 

RETUF 

REM 

FOR J=^l 
H:> J : REM 



TWO DIMENSIONAL PLOTTER 
WRITTEN BV TIMOTHV .J, O'MALLEV 
COPVRIQHT 1932. TAB BOOKS INC- 

200: REM INCREASE STRING SPACE FOR TITLES 

200! REM DATA READING SUBROUTINE 
400: REM DATA SORTING SUBROUTINE 
600: REM SCALING AND PLOTTING SUBROUTINE 
1000: REM < optional::- SCREEN DUMP TO PRINTER 



DATA FOR PLOTTER 
0;=-^:VGEN DISSOCIATION CURUE:REM 
02 PART. PRES. <TORR>:REM THIS 
■< SAT. OF HB BV 02: REM THIS IS 



THIS IS MAIN TITLE 
IS ABSCISSA TITLE 
ORDINATE TITLE 



10: REM 
10.9.8:. ; 
60. 89. 1 . 

0. 100.- 10 
0.- 100.- 10 

M*: REM 
A*: REM 
0*:REM 
N: rem 
•^(N> V<N> 
.T=l TO 



NUMBER OF V> PAIRS 

1'0 32 . 4 . 30 n 56 . 4 -1-0 74 . 2 : 

70 .-. 92 . 6 . 80 . 94 . 6 . 90 . 96 . 

LINES 150-160 ARE: IKl.Vl. 
REM :K-SCALING as MIN X. MAX 
REM V -SCALING AS MIN V. MAIK 



'■0 n 83 
1 00 . 



V2. ETC. 

DIUISIONS 

DIUISION:; 



DATA 
READ 
READ 
READ 
READ 
• : REM ALLOCATE 
REM LINES 260 



READING SUBROUTINE 
MAIN TITLE 
ABSCISSA TITLE 
ORDINATE TITLE 
NUMBER OF V> PAIRS 
^■ACE IN MEMORV 
50 REAL 



OR DATA 



J : 

J 

VM:-i: 

MNV: 

N 



. V ( .J > 



m:k' 



KD: REM 
VDs REM 



READ 
READ 



SCALING 
SCALING 



DATA PAIRS 



UARIABLES 
UARIABLES 



DATA SORTING SUBROUTINE 
N-l:REM LINES 410-530 SORT BV DECREASING 
V-UALUES THEN BV INCREASING X-UALUES 
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430 IF V'::i<>>V<K+l> THEN 539 
440 IF V'::K>=V':;I<+1 > THEN 509 
450 ftsx < |< > ! IK |< > =:;■:; < |< -i- 1 > s K ( l< + 1 > 
460 B=V l< > : ',' (. K > = V < l<+ 3. > s V < l<+ 1 > =B 
470 K=K-1 

480 IF !<> = 1 THEN 438 
490 GOTO 530 

500 IF ;K'::i<><=>^';i<+i > then 530 

510 A=X < l< > 5 < K > < 1 > ' >< < i<+ 1 > =1-1 
520 GOTO 470 
530 NEXT J 

540 MIH=;K<;i>:r'1AX=K<l>i!REM LINES 549-580 FIND MINIMUM 

550 FOR J=l TO NsREM AND MAIKINUM X UALUES 

560 IF X<.J><MIN THEN MIN^XCJ) 

570 IF X'M>>MAK THEN MAX=X'CJ> 

580 NEXT J 

590 RETURN 

600 REM SCALING AND PLOTTING SUBROUTINE 

610 UID=60sREM MAXIMUM UIDEO SCREEN WIDTH 

620 HGT=30sREM MAXIMUM UIDEO SCREEN HEIGHT 

630 C*="o"sREM GRAPHIC CHARACTER USED FOR POINTS 

640 PRINT CHR*t:i2>li sREM CLEAR SCREEN '::SOME USE CLS::- 

,550 r>y =m;x-V..MH',.' 5 pp-hi RAWGF OF V-UALUES 

660 VC=DV.-VD:REM ACTUAL PLOT HEIGHT 
,=,70 DX=MXX~MNX:REM RANGE OF X-UALUES 
680 XC=DX.-XD:REM ACTUAL PLOT WIDTH 

690 S=5+LEN'::STR*<MXV::'>sREM ORDINATE TITLE AND SCALE SPACE 

7G10 IF ■::VC*2><'::HGT-6> THEN VC=VC*2!! GOTO 709 

710 IF ■::XC*2>< CWID-S::' THEN XC=XC*2:GOT0 719 

720 PRINT TAB<S+<:xC~-LENt:M*::'>.--2>"M* 

730 L= I NT C < LEN < 0* ::■ - VC > ^2 > s P= 1 = U=S 

740 FOR J=MXV TO MNV STEP -DV.-VC 

750 IF L>0 THEN PRINT MID^CO*:. L. 1 > 5 

760 I F < J •■••'•.'D > = I NT < J-- VD > THEN PR I NT TAB < 2 > " J ? TAB < S- 1 > 5 " -- " ? 
770 PRINT TAB'::S::'; 
780 IF P>N THEN 860 

790 IF ABS< J -V<P::' > >ABS<DV.'VC> THEN 368 
800 U=S+ ■:: X < P > -MNX > .- DX+XC 

SIS IF U<Ui THEN FOR R=^S TO iJ Us PRINT CHR*< 1 > ; " NEXT R 

820 IF U>W THEN FOR R=l TO U--I...is PRINT CHR*< 19> 5 s NEXT R 
330 PRINT C*;sREM CHR:$<1> IS MOUE PRINT POSITION TO LEFT 
940 l,.l=i...is P=p+1 s REM CHR*<19) IS MOUE PRINT POSITION TO RIGHT 
850 IF P<=N THEN 799 
860 PRINT 
■370 L=L+1 s l...l=S 
880 NEXT J 
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990 FOR I<=1 TO 2 

900 FOR .J=I1HX TO MKX STEP XD 

910 U = S + < J - M H >i y D K * K C 

920 IF I<=1 THEM PRINT TAEKU;' ? " ^ " ; 

930 I F l<=2 THEN PR I NT TAB < M- 1 NT < LEN < STR* < J > > > .■- 2 > 5 J " 
940 NEXT J 
950 PRINT 
960 NEXT l< 
970 PRINT 

980 PR I NT TAB < Sh- < iKC-LEh-l < A* > > .--2 > ; A* 
990 RETURN 

1000 REM OPTIONAL SCREEN DUMP TO PRINTER 

1010 DIM UA<30:. 60;' s FOR J~-l TO 30s FOR I<"1 TO 60 

1 020 OA < J . I< > =PEEK 64^ < J- 1 > +K--3969 > s hJEXT 1< . J 

1 030 N 1 =3*2 -- 1 NT < 6*RND < 1 > > s REM USE RANDOM P 1 1 1 

1040 POKE 260:. SPOKE 26 1.0 s POKE 9, 62 s POKE 1 , 27 

1 050 POKE 2 n 205 s POKE 3 1 2 : POKE 4 , 224 s POKE 5 .201 

1 060 ;-'X=USR > s POKE 1 . 65 : X>v~USR < O > s F-'OKE 1 . 2 s XX-USR < O > 

1070 FOR ..T=l TO 30 s FOR L==-8 TO 1 

1080 FOR K=0 TO 59s IF Kyi5=INT<IC'-15> THEN GOSUB 1128 
1090 s CN=PEEK<L.--S*';;255-UA< J:. K+1 > > > s FOR M^=^7 TO STEP -1 
1 1 00 POKE 1 . N 1 *Si3N <: CN ANII:' 2 - M > s XX=MJSR < 8 s |-.|EXT M . K 

1110 POKE 1, 13 s XX=USR -.; > s NEXT I , J s POKE 1 , 1 2 s XX=USR < 8 > 5 RETURN 

1 1 20 POKE 1 . 27 s >:;X=USR < @ > s POKE 1 75 ' XX^=U:3R < @ > 

1 1 30 POKE 1 1 20 s x;«:=USR < > : POKE 1,0! XX=USR < > 8 RETURN 

READS' 



We now examine the program line by line. 
Line 10 states the nature of the program with a 
remark statement. Line 20 states the author and 
line 30 states that it is copyrighted by TAB Books 
Inc. Line 40 is a remark statement that is used 
simply to separate the lines. Line 50 is a clear 
statement that increases the amount of available 
string space for string variables to 200 characters. 
Not all versions of BASIC will do this, so check 
your particular BASIC. This line also contains a 
remark statement. Line 60 is a subroutine call to 
line 200, which reads data for the plot. Line 70 is a 
call to a subroutine tliat starts at line 400. That 
subroutine sorts the data. Line 80 is a subroutine 
call for scaling and plotting. Line 85 is an optional 
screen dump for printers. Line 90 ends the pro- 
gram. 

Line 100 is a remark statement for lines 100- 
190, which contains the data for the program. Line 



110 contains a data statement and a remark state- 
ment, as do lines 120 and 130. Data statements 
should not contain commas since commas are used 
to separate data. Line 140 is a data statement in- 
forming the computer that the number of (X.Y) 
pairs will eventually be set to 10 (from line 240). 
Lines 150 and 160 are the data statements that 
contain those ten (X,Y) pairs. Line 170 is a remark 
statement stating that fact. Line 180 states that we 
want the abscissa scale to go from to 100 by 
increments of 10. Line 190 says that we want the Y 
scale to go from to 100 by increments of 10. 

Line 200 is a remark statement for the sub- 
routine in lines 200-310, which reads the data into 
the variables. Line 210 reads the string variable, 
M$, from the first data statement. This is used for 
the main title of the plot. You can, of course, change 
this by changing line 110. Line 220 reads the 
abscissa title from the next data statement and 
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assigns that to the string variable, A$. Line 230 
does a siniilar thing for tlie ordinate title, assigning 
it to the string variable, 0$. Line 240 reads the first 
number, N, which is the number of (X,Y) pairs, 
from line 140. Line 250 is a dimension statement for 
the arrays, X and Y. Line 260-280 are a loop that 
reads in the elements of those arrays. Lines 290 and 
300 read the data from lines 180 and 190, respec- 
tively. These values are the scaling variables for 
the plot. Line 310 is a return statement that directs 
the computer out of the subroutine to line 70. 

Line 400 is a remark statement describing the 
subroutine in lines 400-590, which sorts the data. 
Lines 410-530 are a modified shell sorting routine 
that sorts the (X, Y) pairs by decreasing Y-values. If 
two Y-values are equal, it sorts them by increasing 
X-values. Line 410 starts the J loop. Line 420 sets 
K equal to the current value of J. Line 430 says that 
if the Kth element of Y is greater than the (K-l-l)th 
element of Y, go to line 530, which will attempt to 
increase the J counter and continue the loop. Line 
440 says if Y(K) is equal to Y(K-M), go to line 500, 
which will check to see if the X values are increa.s- 
ing. If the computer has not met either of the logical 
conditions of lines 430 or 440, it assumes that Y(K) 
is less than Y(K-M) and it must swap them and their 
associated X values. Line 450 swaps the X values 
and line 460 swaps the Y values. Notice that they 
are first assigned to a variable, A; otherwise X(K) 
and Y(K) would be lost: X(K) would have been 
made equal to X(K-t-l), and Y(K) would have been 
made equal to Y(K-l-l). K is then decreased by 1, 
and line 480 checks to see if K is greater than or 
equal to 1. If it is, control branches to line 430 to 
compare the switched values to the last Y value. 
Line 490 branches to line 530 if the condition in line 
480 is not logically tme. Line 500 checks to see if 
the X values are increasing for equal Y values. If 
they are, control goes to line 530, the next J part of 
the loop. If the condition in line 500 is false, the 

V ,,-1,. „(, t:„« ni a - — „ j — a , *. — i „ — * 

-^x.-vciiucS III line ^ L\j mc a wayy^u diiu Cuiitiui ics c?ciit 

back to line 470 by the goto statement in line 520. 
Lines 540-580 find the minimum and maximum X 
values using a loop. Line 590 ends the subroutine 
call and control returns to line 80. 

Lines 600-990 scale and plot the data as shown 



in Fig. 2-3. Line 600 is a remark statement for that 
subroutine. Line 610 sets the width of the plot to a 
maximum of 60 and line 620 sets the height of the 
plot to a maximum of 30 characters. Line 630 as- 
signs the lowercase letter o as the graphic charac- 
ter to the string variable C$. Line 640 clears the 
screen. Line 650 sets the variable DY as the differ- 
ence between the maximum Y value and the 
minimum Y value. This value will be used to calcu- 
late the appropriate height of the plot. Line 660 
assigns YC as the plot height by dividing DY by YD. 
This may be changed later. Line 670 sets DX as the 
difference between the maximum X value and the 
minimum X value. This value will be used to de- 
termine the actual plot width. Line 680 sets the plot 
width. Line 690 sets up space for the ordinate title 
and scale. Line 700 will keep increasing the value of 
YC if YC is too small for the height. Line 710 does a 
similar multiplication on the variable XC for the 
actual width of the plot. 

Line 720 tabs to the approximate center of the 
plot and then prints the title of the plot, M$. It 
centers the main title bv subtracting the length of 
one-half of the characters in the title. Line 730 finds 
the position to center the ordinate title and sets the 
line number to the variable L. This line also sets the 
variables P and W. 

Lines 740-880 form a loop that draws the rows 
of the plot. J is set to the maximum Y value and will 
decrease to the minimum Y value by decrements of 
- DY/Y C. Line 750 says that if L is greater than 
zero, the Lth character in the ordinate title should 
be printed. The semicolon will hold the print head 
at the next position. Line 760 says that if we are on a 
line that has a scale number, the number and a 
hyphen should be printed and the print head should 
be kept in position. Line 770 will tab to the first 
possible position for a point to be printed. Line 780 
says that if there are no points to be plotted on that 
line, go to line 860, the next row of the figure. Line 
I VKJ CucCKS Lu see 11 any pOuaS aie wiuiiu ulc low 
also. If not, control goes to line 860. Line 800 sets V 
as the exact position of a point on the plot. Line 810 
says that if the point is to the left of the print 
position, move the print position back (W-V-l-1) 
spaces. The cursor control code 1 is used. Some 



18 



mm DISSOCIATION CURVE 



90 - Q 

S 80 - 

A 
T 70 - 

60 - 



F 50 - 
H 40 - 

B 
30 

B 

V 20 - 

10 - 



I i I I I I I I I I I 

10 20 30 40 50 60 70 80 90 100 
02 PART, PRES. (TORR) 



Fig. 2-3. Oxygen dissociation curve, an example of two-dimensional plotting. 



computers use PRINT CHR$(24) instead to move 
die cursor back one space without erasing the 
printed character or number. Check your system. 
Line 820 says that if the point is to the right of the 
current position, move the cursor or print head to 
tlie right (V- W) spaces by using the control code 19. 
Again, some computers use the code 25 instead of 
19. These actions are accompHshed by a nested 
loop using the variable R. Line 830 prints the 
graphic character. Line 840 sets the variable W 
equal to the current print position and P is in- 
cremented by one. If P is less than the number of 



points to be plotted (in line 850), control goes to 
line 790 to see if any those points are on the current 
row of the plot. Line 860 moves to the next row of 
the plot. Line 870 increases the line number 
counter and sets the first possible print position 
variable, W, to the left most part of the plot, S. Line 
880 checks for the next row of the plot. It is the next 
statement of the J loop. 

Lines 890-960 form a loop that prints the X 
axis scale and markings. It computes the proper 
positions for the apostrophes and attempts to 
center the numbers under each apostrophe. Line 
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950 moves the print position to the next line and 
line 960 ends the K loop. Line 970 puts a space 
between the scale and the abscissa title. Line 980 
centers the abscissa title and prints it. Line 990 
returns the computer control to line 85 ending this 
subroutine. 

Lines 1000-1130 form an optional screen 
dump, which places whatever is on the video screen 
onto paper. We will not describe it since it is sys- 
tem specific and uses Z-80 machine language. 

This completes the description of our two-di- 
mensional plotter. Other programs could be writ- 
ten that would print plots. Later we will examine 
some examples of high resolution plotting pro- 
grams. 

DIAGRAMS 

Personal computers can construct two-dimen- 
sional graphs other than histograms and Cartesian 
coordinate plots. They can construct polar coordi- 



nate plots. In polar plots, points are determined by 
the angle and length of a line that is rotated about a 
given point. An example of polar coordinate plot- 
ting is given in Chapter 6. 

Highly detailed diagrams like maps can also be 
produced on some personal computers with good 
graphics. Other possibilities include flowcharts, 
logic circuit diagrams, and floorplans of houses. A 
personal computer might make a good tool in de- 
signing schematic diagrams. Components could be 
moved, added, and erased while on the video 
screen. When finished, a print out might be made of 
the final diagram. Time and paperwork could be 
saved. 

There are probably other two-dimensional 
diagrams and graphs that could be made by com- 
puter. Applications will continue to present them- 
selves as people with varied interests and back- 
grounds use personal computers. Experiment and 
see what you find. 
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Chapter 3 




Three-Dimensi 

Three-dimensional graphing is a method of repro- 
ducing three-dimensional figures on two-dimen- 
sional surface, such as a video screen or on a sheet 
of paper. There must be a systematic procedure for 
incorporating the third axis as a function of the 
other two axes so that tlie figures acquire a realistic 
spatial quality. 

HOW TO PLOT IN THREE DIMENSIONS 

If we assume that tlie horizontal axis is called 
X and the vertical axis is called Y, a third axis would 
be called Z. Often madiematicians consider that the 
Z values in a graph are a function of the X and Y 
values. In such case the Z axis would be the vertical 
axis, the X axis would be the horizontal axis, and 
the Y axis would be represented in some other way. 
Let us look at a way to define that other axis. 

A simple method would be to have that axis at 
an angle relative to the other axes. The angle might 
be 30 or 45 degrees above the horizontal axis. To 
plot points, you would measure the X value along 
tlie horizontal axis, then move along the angle of the 



onal Graphing 

Y axis, and then move vertically for the Z axis. The 
resulting point would be produced as a function of 
all of these actions. So long as the angle remained 
constant the points would be accurately placed on 
the two-dimensional plotting medium. That is a 
simple solution to three-dimensional graphing. 

A more sophisticated solution would involve 
making the X axis not horizontal, but at a slightly 
declining angle, and the Y axis at a given angle as 
before. This produces a plot that is a little more 
realistic. Again, tlie points would be placed by 
travelling along the X axis; then along the Y axis; 
then vertically along the Z axis the correct number 
of units. 

The first solution just presented is called ob- 
liqueprojection while the second is called axonomet- 
ric projection. There are also other methods involv- 
ing vanishing points to make a perspective graph, 
but we will not use those methods. Instead, we now 
briefly look at a perspective method that doesn't 
use vanishing points. 

In tills method of doing tliree-dimensional 
graphing, the equations, V=F1*ATN(F2*DZ/DY), 
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and H=F1*ATN(F2*DX/DY) are used. V is die 
vertical position; H is die horizontal position of a 
point; Fl is a magnification factor; F2 is a perspec- 
tive factor that distorts the image; DZ is the differ- 
ence in distance from the viewpoint to the point 
along the Z axis, DY is the distance along the Y axis; 
and DX is the difference along the X axis. ATN is 
the arctangent function in BASIC. When these 
equations are used for each point plotted, an accu- 
rate perspective graph is made without the use of 
vanishing points. We will investigate these equa- 
tions further in the next chapter although we will 
use them in two programs in this chapter. 

USING TRANSFORMATION 
EQUATIONS TO ROTATE IMAGES 

When plotting in three dimensions, it is often 
necessary to rotate the figures so that different 
views can be presented. It may also be necessary to 
move the points in some direction. To perform both 
of these manipulations, you must use transforma- 
tion equations. We use a set of rotation transforma- 

j' _ _.. , .. . £„„Ii,„ ., ^ 

liuh cqUauOiiS CO lOiatc a Set 01 pOiutS arOuiiu cSCn 

of the three axes and a set of transformation equa- 
tions to displace tlic points along each oi tiiree axes. 
Rotation of points around the Z axis would involve 
changing the X and Y coordinates of the points, for 
instance. If we wanted to displace the points along 
the Z axis, say, five units, we would add five to each 
of the Z values for all the points involved. The next 
chapter will go into more detail about rotations in 
space. 

GRAPHING RESOLUTION AND GRAPHIC CHARACTERS 

All graphs or plots require some degree of 
resolution. There are two kinds of graphics that are 
commonly used today. There are bit image 

image, and there are block type graphics. Bit image 
graphics are composed of rows and columns of dots, 
some of which are dark. Block graphics are com- 
posed of rows and columns of squares, some of 
which are dark. 

Bit image graphics have greater resolution, 
but many computers designed for personal use 



today do not have that kind of resolution available 
for display on a video screen. There are lowcost 
printers available that will make print high-resolu- 
tion pictures using bit image graphics. 

Some computers use block graphics to place 
graphics on the screen without using a lot of mem- 
ory. Certain screen elements, of the block style, 
would be turned on to comprise the image. Thus 
graphs, plots, or other images could be produced. 
Some computers have predefined graphics or 
user-defined graphics to assist in the production of 
images. 

Computers with graphic capabilities typically 
use characters that have ASCII codes above 128. 
When these characters are printed on the video 
screen, the graphic characters appear. Some com- 
puters allow for user-defined graphics so that 
foreign letters or symbols can be created. This 
provides a great deal of flexibility in graphing. 

Some printers will print user-defined graph- 
ics. The state-of-the-art is changing rapidly. Often, 
however, what a programmer vnll do is display the 
graphics on the video screen and have the computer 
"dump" whatever is on the screen onto the paper. 
As we discussed earlier, the programmer would 
either buy a software package that would ac- 
complish this or create his own software to do the 
job. 

ELIMINATING HIDDEN LINES AND POINTS 

Computers can draw line drawings quite easi- 
ly, but what requires a great deal of computing is 
the elimination of lines and points that are not 
supposed to be seen. This is due to the fact that the 
computer must be programmed to decide what lines 
or points are really unseen. Algorithms for ac- 
complishing this do not come easily and those that 
do generally require a lot of number crunching. 
Without the elimination oihiddm lines and points, 
you would see all the points at once, and the image 
would be confusing. We will look at a couple of 
methods to get rid of hidden lines in some programs 
in this book. 

THREE-DIMENSIONAL MODELS OF FUNCTIONS 

We now turn our attention to two programs 
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Fig. 3-1. The function Z=X*X-Y*Y, a saddle-shaped figure. 



that display three-dimensional functions; one will 
be in low-resolution and one will be in high resolu- 
tion. Within the programs we will see one method 
of eliminating some hidden points. 

A Low-Resolution Program In BASIC— Program 4 

Figure 3-1 shows the result of plotting the 



function Z=X*X-Y*Y. A saddle-shaped figure is 
produced. We showed only some of the points as we 
will explain later. Notice that it is difficult to see tlie 
three-dimensional effect. The image looks more 
like a spider than anything else. Figure 3-2 has the 
hidden points of our saddle-shaped function re- 
moved. It looks a little more like a three-dimen- 
sional figure. 
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Fig. 3-2. The saddle-shaped function with hidden lines removed. 



10 REM 
20 REM 
30 REM 
40 REM 

60 GOSUB 300 s REM 
70 QOSUB 500 s REM 
80 END 
100 REM 
110 N=500sREM 



THREE DIMENSIONAL PLOTTER 
WRITTEN EV T I MOTHS' .J. O'MALLEV 
COPVRIQHT 19S2, TAB BOOKS INC. 

r-! P P T K J P r> T C< P- O T M T 

FIND EXTREME UALUES_ 
PRINT ON UIDEO SCREEN 



DEFINE DATA POINTS 
MAXIMUM NUMBER OF POSS 
120 DIM U'::N.':'.H'::N:jsREM ALLOCATE SPACE FOR C 
130 5 RPM INITIALIZE COUNTER FOR 



IBLE POINTS 
OORDINATES 
POINTS 
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140 FOR X=-2 TO 23 REM DEFINES K-UALUES 

150 FOR V=-2 TO 2 STEP 0.1: REM DEFINES V-UALUES 

160 C=C+l:REM INCREASE COUNTER 

170 Z=J^*X-V*V!REM FUNCTION TO BE PLOTTED 

1 80 U C C > ='v'*0 , 5--X*0 . 26+Z ! REM UERT I C AL UALUE 

1 90 H >: C > =M*0 . 96+V*0 . 8? : REM HOR I ZONT AL UALUE 

200 NEXT W.y. 

210 RETURN 

300 REM FIND EXTREME UALUES 

3 1 M I NU=U ■:: 1 ::■ s MAK'...i=U < 1 > s REM SET AT ARB I TRARV UALUES 

320 MINH=H<:i::'SMAKH=H(i:;'SREM SET AT ARB I TRARV UALUES 

330 FOR .J=l TO C:REM LINES 330-380 FIND MAK AND MIN 

340 IF U.::j;:.<MIHI...i THEN MINU=U':;J> 

350 IF U'::J> >MA;KU THEN MAXU=U < J > 

360 IF HCJXMINH THEN MINH^^HCJ::' 

370 IF H'::J>>MAKH THEN MAXH=H':;J> 

380 NEXT J 

390 DU=MAXU-MIHU5REM RANGE OF UERTICAL UALUES 
400 DH=MAXH-MINH:REM RANGE OF HORIZONTAL UALUES 
410 RETURN 

500 REM PRINT ON UIDEO SCREEN 

510 I...IID=64: REM MAXIMUM SCREEN WIDTH 

520 HGT=30sREM MAXIMUM SCREEN HEIGHT 

530 DIM S<HQT.WID>:REM DIMENSION SCREEN ARRAV 

540 FOR J:=l TO HGT:REM LINES 540-570 FILL ARRAS' WITH 

550 FOR I<=1 TO W IDS REM BLANKS p ASCII CODE OF 32 

560 S'::J,IO=32 

570 NEXT K.J 

580 FOR J=l TO C5REM LINES 586-620 FILL ARRAV WITH POINTS 
590 HP= I NT ■:; < H J > - M I HH > •■• DH*W I D+Q , 5 > s REM HOR I ZOhfT AL POS I T I ON 
600 UP= I NT < <: U < J > -M I NU > . ■•DU*HGT+0 .5>! REM UERT I C AL POS I T I ON 
610 Sc:UPpHP> = 111:REM ASCII CODE FOR LOWERCASE IS 111 
615 GOSUB 800 
620 NEXT J 

630 PRINT CHR*'::12>; sREM CLEAR SCREEN (SOME USE CLS> 

640 FOR J=HGT to 1 STEP -is REM LINES 640-690 PRINT ON SCREEN 

650 FOR K=l TO WID 

660 PRINT CHR*<S(J. K> > ; 

670 NEXT K 

680 PRINT 

690 NEXT J 

700 RETURN 

800 REM REMOUE POINTS BEHIND PLANE 

810 REM ADD LINE 615 GOSUB 800 
820 IF UP<2 THEN RETURN 
830 FOR K=UP-"1 TO 1 STEP -l 
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840 S'::K, HP::'=32 
850 HEKT l< 
360 RETURN 
READS' 



Let's look at the program. Lines 10-40 are 
remarks that state the nature of the program and the 
credits. Line 50 is a subroutine call to line 100 for 
defining the data points. Line 60 is a subroutine call 
to line 300 to find the extrem.e points for plotting 
purposes. Line 70 is a subroutine call to print the 
figure on the video screen, and line 80 ends the 
program. 

Line 100 is a remark for the first subroutine. 
Line 110 sets the variable N at 500. This is the 
maximum number of points that we want to plot. 
We use this variable in the dimension statements in 
line 120, which are for the vertical and horizontal 
positions on the screen. Line 130 sets a counter 
variable, C, to zero. We then use two nested for- 
next loops to define the X and Y values used in the 
function in lines 140 and 150. Line 160 increases 
the counter. Line 1 70 computes the value of Z from 
the current X and Y values. Lines 180 and 190 
compute the vertical and horizontal position of 
point C according to the axonometric projection 
that we discussed earlier. The Y axis is at 30 de- 
grees above the horizontal, the X axis declines at 
about 15 degrees below the horizontal, and the Z 
axis is vertical. The numbers in line 180 are the 
sines of those degrees and the numbers in line 190 
are the cosines of those degrees. Line 200 contains 
the next statement for the nested loops, and line 
210 returns control back to line 60. 

Lines 300-410 finds the extreme values for the 
points. The variables MNH, MAXH, MINV, and 
MAXV are set at arbitrary first values line lines 3 10 
and 320. Lines 330-380 find the maximum and 
minimum- vertical and horizontal values by using a 
loop with the variable counter J. Lines 390 and 400 

r;„j i-u „ ... ^ /aU j;rr„ u^j- — ^ — i-u ^ 

imU LllC IdllgC VUIC UlllCiCUCC UCLWCCll LllC 

maximum and minimum values of the vertical and 
horizontal values). Line 410 is a return statement. 

Lines 500-700 form the subroutine that prints 
out the figures. Line 500 is a remark statement. 



Line 510 sets the width of the plot to a maximum of 
64 characters. You may change this to another val- 
ue, particularly if your video screen is not 64 
characters in width. If your screen is 80 characters 
W-de, you might want to change WID to 80. Line 
520 sets the height to 30. You could also change this 
value to, say, 24. Line 530 is a dimension statement 
which defines a screen array of height, HGT, and 
width, WID. We will use this to place points that 
are to be erased or plotted. Lines 550-570 form a 
loop that places an ASCII 32 in the entire array. 32 
is the ASCII code number for a blank space. We will 
use this so that the computer will know what to 
print where there are no points in the array. Lines 
580-620 form a loop that fills the S array vnth points 
at the proper positions. Lines 590 and 600 adjust 
the positions in an attempt to use the maximum area 
of the array. Line 610 sets the array at the location 
of each point to 111. Ill is the ASCII for the 
lowercase letter o. If your computer does not have 
lowercase letters, you might substitute the 
number, 79, which is the uppercase letter 0, or the 
number 42, which is the code for the asterisk. If you 
want to erase the hidden points, add line 615, which 
is a subroutine call to line 800. Line 620 is the next 
statement of the current loop. Line 630 clears the 
video screen. The nested loops in lines 640-690 
print the characters corresponding to the ASCII 
codes stored in the S array. Line 700 returns to line 
80, which is an end statement. 

The subroutine in lines 800-860 erases all 
points below the current point in the same column 
of the S array. If the vertical position of the current 
point is less than 2, line 820 will send control back 
to the main program, since there could be no points 
below the current point; we are on u»e bottom row 
of the array. Line 830 sets up a loop with the 
counter K and erases all the possible points below 
the current position in the same column in the array 
by setting all the elements to 32, the blank space 
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Fig. 3-3. A high-resolution plot of a function. 



code. Line 850 terminates the loop, and line 860 is 
the return statement, which sends control back to 
line 620. 

That's tlie complete program! To change func- 
tions, substitute another line in line 170, which 
defines the Z-value. Be sure that you have suitable 
X and Y values or else you might get a domain error 
(or something to that effect). 

A High-Resolution Program in BASIC— Program 5 

We now direct our consideration toward an- 



other program that plots three-dimensional func- 
tions, this one in high-resolution graphics. First of 
all, to plot in high-resolution, you must either have 
high-resolution capabilities on your video screen or 
have a high-resolution printer. Figure 3-3 was 
printed using a lowcost, high-resolution printer, 
but it was not displayed on the screen. It was made 
using a machine- language subroutine that bypassed 
the BASIC operating system of the microcomputer. 
We will look at a way to write the entire program 
using BASIC for ease of comprehension. 



10 REM 3D HIGH RESOLUTION FUNCTION PLOTTER 

20 REM WRITTEN BV TIMOTHV .J. O'MALLEV 

30 REM COPVRIGHT 19S2.n TAB BOOKS INC. 

40 REM 

50 GOSUB 100: REM INITIALIZE PROGRAM 

60 GOSUB 200: REM PLOT POINTS IN ARRAV 

70 GOSUB 600: REM PRINT OUT ARRAS-' ON PAPER 
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80 END 

100 REM INITIALIZE PROGRAM 

1 1 HGT=25 s I D=253 s I...I2= 1 27 

1 20 DEF FNA C R > = 1 0* < EXP < ~R*R.-' 1 000 > *COS <. R.--5 > > 

130 Din UA<HGT,UlID::'SREri DIMENSION ARRAV FOR PLOT 

140 GOSUB 7005 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR 

PRINTER 

150 RETURN 

200 REM PLOT POINTS IN ARRAV 

210 FOR !«!=-30 TO 30 STEP 9= 55 FOR V=-30 TO 30 STEP 9=2 

220 R=SQR < V*V > s Z=FNA < R > s U=V*0 . 1 7-X*0 . 08+Z+HGT.'-2 

230 H=K*2.88+V*2.61+UIID.--2s IF UO OR U>HGT OR H<0 OR 
H>WIDTHEN28e 

240 I U= I NT < U > s I H= I NT < H > : D"..J= I NT < 1 2* •:: U-- 1 U > ::■ s PU=:2 - DU 

250 U A < I U , I H > =U A < I U I H > OR PU 

260 GOSUB 400s REM ERASE POINTS BELOW PU IN UACIU^IH!? 

270 GOSUB 500s REM ERASE POINTS BELOW UAOU, IH> 

280 NEKT SSIKS RETURN 

400 REM ERASE POINTS BELOW PU IN U A C I U I H > 

410 IF DU=0 THEN RETURN 

420 FOR J=DU--1 TO STEP -lsJ2=2-J 

430 I F < UA I U , I H > AND J2 > =J2 THEN UA •:: I U . I H > =UA < I U , I H ::• - J2 

440 HF/-:IT TsRFTljRH 

500 REM ERASE POINTS BELOW UA<IU,IH> 

510 IF IU=0 THEN RETURN 

520 FOR ,.T=IU-1 TO O STEP -1 s UA< J. IH::'=0s NE:KT J s RETURN 

600 REM PRINT OUT ARRAV ON PAPER 

610 FOR JS=HGT TO O STEP -is FOR MS=11 TO STEP -1 

620 BS=INT<2--MS> s FOR LS=0 TO 1 s QOSUB 660 

630 FOR l<S=LS*W2 TO LS*W2+W2--1 s POKE 1:. SGNCBS AND UA •:: JS . KS > > 

640 KX=USR < ;:• 5 NE:«;T KS . LS s POKE 1.13s XK=USR C > s NEXT MS . JS 

650 POKE 1,125 k;k=USR C O > s RETURN 

660 POKE 1,27s :«;:K=USR < ;:■ s POKE 1,755 ;«:;==:=USR < > 5 POKE 1 , W2 

670 KX=USR •:: ;:• 5 POKE 1 , s :KK=USR < O > : RETURN 

700 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR 

PRINTER 

710 POKE 260, 03 POKE 26 1,0s POKE 6, 62s POKE 1,275 POKE 2,205 

720 POKE 3,123 POKE 4 , 224 s POKE 5 , 2© 1 s KX=USR ( O > s POKE 1 , 65 

READV 

Let's look at the program line by line. Lines the subroutine at line 600, which prints out the 

10-40 give the name of the program and other cred- array on paper. Line 80 ends the program, 

its using remark statements. Line 50 is a sub- Line 100 is a remark, heading the subroutine 

routine call to line 100 where the program will be that sets up (initializes) the program. Line 110 

initialized. Line 60 is a subroutine call to line 200, defines the height, HGT, as 25, the width, WID, as 

whicJi places points in the array. Line 70 is a call to 253 and the variable W2 as 127. HGT and WID will 
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be used to dimension the VA array, but there is a 
very subtle "catch". Each number in tliat array can 
represent up to 12 different points. That makes tlie 
figure have a height of 12*(25+1) or 312 points 
maximum, and a width of (253+1) or 254 points 
maximum. The one extra came from using the 0th 
index (0,0) of our array for both tlie rows and col- 
umns. All told, they are a maximum of 79,248 posi- 
tions in which points can be printed. We will see 
how this is attained later. Line 120 is a defined 
function that makes the figure. If your computer can 
not define functions, simply substitute die equiva- 
lent of this function when defining Z in line 220. 
This function contains the exponential function and 
the cosine function that are predefined in BASIC. 
Line 130 dimensions the array used in the point 
plotter. Line 140 is a subroutine call to line 700, 
which sets up a machine language subroutine to 
pass numbers to the printer, bypassing the BASIC 
operating system. Again, we will explain this in 
detail and show alternate ways to do approximately 
the same tiling in BASIC. Line 150 is a return 
statement (to line 60). 

Line 200 is a remark statement for the plotting 
subroutine, lines 200-280. Lines 210-280 form 
nested for-next loops that define the X and the Y 
values. Line 220 sets the variable R as the square 
root of X squared plus Y squared. R is the distance 
from tlie center of this model. Z is defined as a 
function of R. R is already a function of X and Y. V, 
the vertical position of tlie point, is defined in the 
same kind of axonometric way that we dem- 
onstrated in the last program. In line 230, H is the 
horizontal position of the point, defined in a similar 
manner. If H or V are outside the bounds of our 
array's dimensions, control goes to line 280, which 
is a next statement for the next set of X and Y 
coordinates. Line 240 is where it starts to get 
tricky. In this line we define IV as the integer, or 
whole number part of the value of V. The same is 
done for H. Now we define DV as the integer part of 
12 times the fractional part of V and we set PV to 2 
to the power of DV. That means if the fractional part 
is zero, PV is 1; if the fractional part is over 0.083, 
PV is 2; if the fractional part is over 0. 167, PV is 4; 
if the fractional part is 3/12 or more, PV is 8 and so 



on up to 11/12 or more where PV equals 2048. Line 
250 does a Boolean-algebra binary-logical OR bet- 
ween the array at VA(IV,IH) and PV, and sets the 
result equal to VA(IV,IH). In this way we can actu- 
ally represent several points by one number. Make 
sure your computer can do a binary-logical OR; 
Type PRINT 3 OR 1. Does it equal 3? Line 260 
erases all the bits below PV in VA(IV,IH) using its 
subroutine call to line 400. Line 270 is a subroutine 
call that erases all numbers below VA(IV,IH) in the 
same column by going to line 500. Line 280 contains 
the next stagements for the nested loops and causes 
a return to line 70 after the loops are completed. 

'ITie subroutine in lines 400-440 erases bits in 
tlie VA airay. Line 400 is a remark statement for 
the subroutine. Line 410 says if DV is zero, return 
to tlie main program because PV is 1 and there are 
no bits below the bit for the number one. Lines 
420-440 use a loop and the Boolean-algebra binary- 
logical AND operator to find out whether or not if 
bits exist at certain positions. If your computer 
works witli the OR function in line 250, it will work 
with the AND function in line 430. Line 420 sets the 
J counter initially at a value DV-1, to be decreased 
to zero by decrements of - 1. J2 is set to 2 to the 
power of J. Line 430 says if the bit of the array at 
VA(IV,IH) exists for the number J2, subtract J2 
from the number and redefine VA(IV,IH). This pro- 
cedure effectively erases a bit if it exists. Line 440 
is the next statement for tliis loop, along with a 
return statement to line 270. 

Lines 500-520 erase all the numbers below 
VA(IV,IH) in the same column in the VA array. Line 
500 is the remark statement for the subroutine. 
Line 510 says that if we are already at the bottom of 
the array, forget it and return to line 280. Line 520 
contains a loop that says to set all the elements of 
the array below our current point to zero and then 
return to line 280. 

Lines 600-650 print out the bits of the array on 
paper. Line 600 is the remark statement for tlie 
subroutine and line 610 contains two nested loops, 
JS, and inside that, MS. JS is for the rows of the 
array and MS is for the bits of the numbers of the 
array. Line 620 sets BS equal to the integer of two 
to the power of MS and contains yet another nested 
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loop inside the MS loop, the LS loop. The LS loop is 
used to configure the computer to print a line of 
high-resolution graphics. It does this by going to 
the subroutine at line 660. Line 630 contains yet 
another nested for-next loop inside of the LS loop. 
This loop uses the variable KS for a counter for the 
columns of the array. Line 630 also contains a poke 
command. It pokes the sign of the binary logical 
AND of BS and VAGS.KS) into memory position 1. 
Line 640 makes a niachme -laiiguage subroutine call 
and prints a possible bit on paper. It then goes to the 
next KS and LS. Then it pokes the number 13 (code 
for carriage return) into memory position 1 and 
does a machine-language subroutine call to send it 
to the printer. Then the next statement for MS and 
JS are encountered. Line 650 pokes the number 12 
into memory position 1 and sends it to the printer. 
12 is the code for the form feed control character. 
Then the return statement returns control to line 80 
to end the program. 

Lines 660-670 configure the printer to print 
the next W2 characters that it receives as high- 

PRINT CHR$(27); CHR$(75); CHR$(W2); 

CHR$(0). 2? is the code for escape; 75 is the code 
for "K"; W2 is the number 127 and tells the compu- 
ter to print the next 127 characters it receives as 
graphics. The are for characters in excess of 128 
(none). 

Briefly stated the machine language in lines 
700-730 says to LD A with the number at memory 
location 1, CALL SEND (the memory position to 
send the contents of A to the airrent output device) 



and return from the machine-language subroutine. 
Lines 720 and 730 also poke the numbers 65 (for 
"A"), and 1 to tell the printer that it will be advanc- 
ing the line by a length equivalent to 1/72". If this 
makes no sense to you, don't worry about it; this 
book is about BASIC, not about machine-language. 

That concludes the two programs concerning 
three-dimensional models of functions. We now 
look at two similar programs that print out space- 
filling models of molecules, v/hich are presented as 
spheres. 

THREE-DIMENSIONAL, SPACE-FILLING 
MOLECULAR MODELS 

Let's look at two programs that do look realis- 
tic; one is a low-resolution program that prints the 
figure on the video screen and one that creates a 
high-resolution figure using a printer. 

A Low-Resolution Program in BASIC— Program 6 

Figure 3-4 shows a series of low-resolution 
ficnjres deDictinp two hexagons made of circles. 
Originally one hexagon ring is tilted "back" into the 
plane of the page. This model might represent the 
carbon atoms of the molecule biphenol. We will use 
this organic molecule to be the model that we will 
view in the two programs. Figure 3-4 shows the 
partial rotation of the model about the vertical (Z) 
axis. Figure 3-5 shows partial rotation about the Y 
axis; Fig. 3-6 shows partial rotation about the X 
axis; and Fig. 3-7 shows partial rotation of the left 
part of the molecule about the X axis. 



le REM LOW-RESOLUTIOH. SPACE-FILLING 

^Kf rCdi-i r:.i_' I M I ilia i-iui_c'_-'_>i_i-ir:. i ii_'L"ci_ 

30 ppM URITTE.N BV T I MOTHS' J. O'MALLE'v' 

40 REM COP'v'RIGHT 1982.-. TAB BOOKS INC. 

50 REM 

60 GOSUB 100 5 REM INITIALIZE PROGRAM AND READ DATA 

70 GOSUB 200 s REM SORT B'v' DECREASING DISTANCES TO UIEl.lPOIHT 

30 GOSUB 400! REM PLOT POINTS AND PRINT ON PAPER 

90 GOSUB 600 s REM ROTATE POINTS ABOUT AN AKIS 

95 GOTO 70S REM REPEAT ROTATION AND PRINTING INDEFINITEL',' 

100 REM INITIALIZE PROGRAM AND READ DATA 

1 1 E=0 . 4 s N 1 = 1 2 s RD=0 . 5 ' F=& . 1 G=0 . 98 s HGT=64 U I D=64 
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120 DIM KCNl > . V'::H1 ::■ . Z'::H1 > . U':;H1 > . hKNl > . RSKNl . DI ciHl > . R'::3> 

130 FOR J=l TO NlsREAD IK'CJ::' , V<j;:' . Z':;j> s NEXT J 

140 DATA 0.0.0n 0.5p0.0,S?, 1 = 5.0.0.87. 2.0.-.0 

1 50 DATA 1.5.0. ~0 . 87 . 0.5.0 . -0 . 87 . 3 . . . 3.5. . 348 . O , 348 

160 DATA 4.5.0.348.0.348. 5.0.0. 4.5.-0.348.-0.348 

170 DATA 3. 5. -0. 348. -0. 348 

190 R':; 1 >=2. 55 R'::2>=05 R<3>=0s :K<0>=2. 5s V<0>=-10s Z'::0::' = 1 5 B*="Z" 

195 RETURN 

200 REM SORT B'-,' DECREASING DISTANCES TO U I EURO I NT 

202 FOR J=l TO Nl 

204 DV='-,^ J > -V c: > s I F D V< =0 THEN PR INT" DECREASE V < STOP 

206 DK=X >■:. J y -H ■:: > s DZ=Z < J > ~ Z >■. > 

208 D I •: J > =SQR D V*DV-i-DK*d:K+DZ*DZ y s RS J = ATN < F*RD.--D I < J > > 

209 U J > ^= ATN F*DZ D V > s H J > = ATN F*D:";. -D V > " NEKT J 

210 FOR J=l TO Nl-ls|<=.J 

220 IF DI ^K+l ><=DI<K> THEN 270 

230 A=X < l< ::• 5 X < K >=X <K-«-l>s X < K+ 1 > = A : A= V < K > s V < l< > = V < K+ 1 >:'■>■' < l< + 1 > = A 

240 A=Z < l< 5 Z < K =Z < l<+ 1 > s Z •:: K+ 1 > = A s A=U < K > = U < l< > =U < K-^ 1 > s U •:; K+ 1 > = A 

250 A=H 1< > : H •:: K ::• =H < K+ 1 > s H < K+ 1 > = A s A=RS C K > s RS ■:: 1< > =RS < K+ 1 > s RS 
•::i<+l>=A 

255 A=D I >: l< > s D I < l< > =D I •:; K-i- 1 > : D I < K+ 1 > = A 

260 l<=K-lslF K>0 THEN 220 

270 NEXT J 

280 M I NU=U < 1 > -RS <1>! MAXU=ivi < 1 > +RS < 1 > 

285 M I NH=H < 1 > -RS < 1 > s MAXH=H < 1 > +RS < 1 > 

290 FOR J=l TO Nl 

300 IF U';: J>-RS< JXMINU THEN MINU=U< JIs-RS-C J> 

310 IF U<J>+RS':: J) >MAXU THEN MAXU=U':: J>+RS':;j> 

320 IF H':: J>-RS<J><MINH THEN M I NH==H -M > -RS < J > 

330 IF H< J >+RS ■::.!) >MAXH THEN MAXH=H<J>+RS':: J> 

340 NEXT J s DH=l1AXH-r'1 1 NH i! DU^MAXU-II I NL.-i 

350 FOR J=l TO Nl 

360 H < J ::• -G* < H < J > -M I NH > .-••DH*W I D s U < J ) =G* < U < J > ~M I HU > .••'DU*HQT 

370 RS < J > =G*RS < J > .■••DH*l...l I D s NEXT J s RETURN 

400 REM F'LOT POINTS AND PRINT ON PAPER 

405 MU=05FOR J=l TO NUIF U •:; J > +RS ( J > >MU THEN MU=U':: J > + RS':: J > 

406 NEXT J : Mi,J= I NT < MU .:' -i- 1 
410 FOR JS=MU TO STEP -1 
430 FOR l<S=0 TO WID~15SS=0 

440 FOR NS= 1 TO N 1 s PS=SQR < C KS H < NS > > '--2+ < JS-U C HS > > ^-2> 

450 IF <PS-RS'::NS> X 1 THEN SS=ls IF PS<RS<HS> THEN SS=0 

460 NEXT HS s PR I NT M I D$ < " * " . SS+ 1 . 1 > ; s NEI^-^T i<S : PR I NT : NEXT JS 

470 PRINT CHR*<12> 

480 RETURN 

600 REM ROTATE POINTS ABOUT AN AXIS 

610 FOR J=^l TO Nl 

620 I F B*= " Z " THEN A 1 -X r J > : A2=R <1>: A3=V < J > 5 A4=R < 2 > 
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630 IF E!*="V" THEM h1=:K>;: J> s H2=R'a > s h3=Z':: J> s A4=R'::3> 
640 I F B$= " :K " THEN A 1 = V < J > ' A2=R •:: 2 > ' A3=Z < J ::• ! A4=R C 3 > 
6 5 ei P 1 = A 1 - A 2 s p 2 = A 3 - A 4 
660 L=SQR < P 1 *P 1 +P2*P2 > 

670 IF P2=0 THEN A5=-<P1<0>*3. 141593 
6S0 IF P1=0 THEN A5=SGN<P2>* 1.570796 

690 IF P2O0 AHD P1O0 THEN A5=ATH'::P2.-P1 ::'-<Pl< 6 >*3. 141593 
700 A5-A5+E 

7 1 IF B*= " Z " THEN X <. J > =L ^COS < A5 > +R c: 1 > s V < J > =L*S I H < A5 > +R < 2 > 

r j::fc.i J. I" D-f— T I rii:::.! 1 ■■■■ '. -.1 ■■-u--'-i™-"_io ■-. .■• '■f-. ■■. j. --• ■> '•. .-• —(_.•■-•_■ x r-i •■. n-.j .■■ > i--. ■■. ■_• .•■ 

730 IF B*="K" THEN V< J>"L*C0S<A5::'+R'::2> s Z'C J>=L*SIN<A5>+R'::3> 

740 NEXT J s RETURN 

FlEADV 



Lines 10-50 are remark statements stating the 
nature of the program and giving the credits. Line 
60 is a subroutine call to line 100, where the pro- 
gram is set up and the data is read. Line 70 is a call 
to a subroutine that sorts the points at the centers of 
the spheres in the order of decreasing distances 
from a defined viewpoint. This viewpoint could be 
likened to your eye as it would see the molecule. 
Line 80 IS a SUbruuuiic caii lu iuic 4uO, wiiicii piuts 
the points and prints them on paper or the video 
screen, i^me 90 is a subroutine can to une ouu, 
which rotates the points about a specified axis. Line 
95 is a goto statement that repeats the rotation and 
printing endlessly. You must interrupt the program 
to stop it. You might write a loop that would rotate 
and print out the figures a finite number of times. 

Lines 100-195 set variables and arrays and 
read in data. Line 100 is a remark statement for the 
section. Line 110 sets E equal to 0.4. E is the 
rotation increment in radians. Nl is the number of 
points (spheres) in the figure. RD is the radius of 
the spheres. F is the perspective factor that makes 
close objects seem large and far objects seem 
small. G is the magnification factor. HGT is the 
height and vYiD is die width. You may need to adjust 
the HGT and WID to get a proper figure. Line 120 
dimensions the arrays used. X, Y, and Z are the 
coordinates of the points; V and H are the vertical 
and horizontal arrays for the positions of the points; 
RS is the adjusted radius of each sphere; DI is the 
distance from each point to the viewpoint; R is the 
point of rotation for each of the axes. Line 130 is a 



loop that reads in the X, Y, and Z coordinates. Lines 
140-170 contain those values. Line 190 sets R(l) 
equal to 2. 5. R( l) is the point about which the model 
mil rotate when rotating parallel to the X-axis. R(2) 
is the point that the molecule will rotate about when 
rotating parallel to the Y-axis and R(3) is the rota- 
tion point for the Z-axis, X(0) is the X-value of the 
viewpoint; Y(0) is the Y-value of the viewpoint and 

nr/ZW ^.^t nr 1,,,, f ,, T^iJ.-. = •.•■cA-. 

i5 iXiG ^"VaiuC iOr uiC v iCVvpOiiil. i Uib io wiiL-ii- 

your eye would be if you were actually viewing the 

liiOicCuic lu iCaiity, 11 tilat wcic poocaiuic. i-'^' i^j a 

literal string variable that designates the axis of 
rotation. Changing B$ to "X" or "Y" will allow 
rotation around the other axes. Line 195 returns 
control back to line 70. 

Lines 200-370 sort the points by their decreas- 
ing distances from the coordinates of the view- 
point. Line 210 is a remark statement for the sub- 
routine. Lines 202-209 form a loop which defines 
DY, the distance from the point to the viewpoint 
along the Y-axis; DX, the difference between them 
along the X-axis; and DZ, the difference between 
them along the Z-axis. If DY is negative the object is 
behind your head, as it were, and you would have to 

uaLtv uii uy ucv-icaoiiig xv."/- i-'iii*^ '-'^^ Uv-miOo i^i, 

the distance from the viewpoint to each point. This 
is the square root of the sum of the differences 
squared. RS is the adjusted radius for each sphere. 
In line 209 V and H are the adjusted vertical and 
horizontal positions for each point. 

Lines 210-270 are a modified shell sorting 
routine that moves the points' coordinates and 
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other associated arrays according to their decreas- 
ing distances from the viewpoint. We've seen a sort 
like this before. 

Lines 280 and 285 set the minimum and 
maximum heights and widths to an arbitrary value, 
the first one in tlie anay. Lines 290-340 find the 



actual minimum and maximum values for the height 
and width values of the points. Line 340 sets DH as 
the difference in the width and DV as the difference 
in the height. 

Lines 350-370 form a loop that adjusts the 
values of the points so that they will fill as much of 
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Fig. 3-4. Partial rotation of a molecular model about the Z axis (continued on page 34.) 
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Fig. 3-4. (Continued from page 33.) 
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the screen or paper as possible. The loop adjusts 
the height V, the width, H, and the radius, RS, of 
each point. Then control returns to line 80. 

Lines 400-480 plot the points and print them 
on the screen or on paper as asterisks. The variable 
MV is set to zero in line 405. This variable is used 
to denote where the first line of printing is located. 
It is used so that we can quickly "tab" down to 
where the printing begins. The rest of line 405 is a 
loop used to find the actual first position of printing. 
Line 406 ends the loop and sets MV as the INT(MV) 
plus one. We don't want to miss part of the first line 
of print. 

Lines 410-460 contain three nested loops that 
compute the distance of each point from the current 
screen position or print position. If that distance 
equals the radius of a sphere it momentarily sets 
the variable SS=1. If a sphere is nearer to the 
viewpoint, and that position is within tlie radius 
distance, it will reset SS to zero. JS is the loop for 
the height, KS is for the width, and NS is the loop 
for distance of the spheres from the viewpoint. Line 



470 is a form feed command and line 480 returns 
control back to line 90. 

Lines 600-740 are a rotation-transformation 
equation set that allows points to be rotated about 
specific points parallel to either of the three axes. 
For each point, the angle of which it lies is com- 
puted, and then the increment angle, E, is added to 
its angle and the position is redefined. When points 
are rotated about the Z axis, the Z-values of the 
points do not change; only the X and Y- values 
change. Similar things happen with rotations about 
the other axes. Rotations about the Y-axis do not 
affect the Y-values of tlie points, and rotations about 
the X-axis do not affect the X-values of the points. 
Line 670 has an interesting feature. K P2=0 then 
A5 equals the negative of the value of the result of 
the logical condition, PI is less than zero, times the 
value of pi. Not all computer's will give a result to 
PRINT - (2=1 ) or similar requests for the display 
of the result of logical operations. Check your sys- 
tem. If Pi is less than zero, the result within the 
parentheses would be true or equal to - 1. If it were 
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Fig. 3-5. Partial rotation of a molecular model about the Y axis (continued on page 37). 
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Fig. 3-5. (Continued from page 37.) 
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false, it would equal 0. Thus A5 equals Pi if PI is 
less than zero, and A5 equals if PI is not less than 
zero. A similar type of operation exists in line 690. 
A5 is tlie angle (in radians) at which the point lies 
from the origin, relative to the axis that is involved 
in the rotation. The increment is added in line 700. 
The rest of the lines transform the point to the 
coordinates of its new position after the rotation. 
Line 740 ends the loop and returns control back to 
line 95, which repeats the entire process. You may 
have to finagle a little with the height and width to 
get the best figure possible. 

This low-resolution program really doesn't do 
justice to what the program is really capable of 



doing. The next program uses the same data and 
much of the same programming to make superlative 
plots. 

A High-Resolution Program in BASIC— Program 7 

Figure 3-8 shows several partial rotations of 
the model about the Z-axis. You must admit that the 
clarity has improved greatly. Figure 3-9 shows the 
partial rotation about the Y-axis and Figure 3-10 
displays a rotation about tlie X-axis. Figure 3-11 
gives the rotation about the X-axis for the six 
spheres on the left. Tliese figures could be made 
larger by increasing the HGT and WID variables in 
the program. Let's look at the program. 
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10 REM HIGH-RESOLUTION.- SPACE-FILL I HG 

20 REM ROTATING MOLECULAR MODEL 

30 REM WRITTEN BV TIMOTHV J. O'MALLES' 

40 REM COPYRIGHT 1982. TAB BOOKS INC, 

50 REM 

60 GOSUB 100SREM INITIALIZE PROGRAM AND READ DATA 
70 GOSUB 200 s REM SORT BV DECREASING DISTANCES TO UIEWPOINT 
80 GOSUB 400 s REM PLOT POINTS AND PRINT ON PAPER 
90 GOSUB 600s REM ROTATE POINTS ABOUT AN AKIS 
95 GOTO 705 REM REPEAT ROTATION AND PRINTING IHDEFINITELV 
100 REM INITIALIZE PROGRAM AND READ DATA 

110 E=0 „ 4 s N 1 = 1 2 s RD=0 . 5 s F=0 . 1 s Q=0 . 98 s HGT=96 s W I D=S0 s I...I2=80 
120 DIM X<;N1>. V<Nl>^Z<Nl>,U<Nl::■,H<:Hl:;■.RS(:Nl::'.DI•::Nl>^R'::3::• 
130 FOR J=l TO NlsREAD XC J> .'■.■'< J Z-::. J ::• s NEXT J 

140 DATA 0n0.0. 0»5n0,0=87. 1,5.0.0=87. 2.0.0 

150 DATA 1.5.0.-0.87. 0.5.0. -0.87. 3.0.0. 3,5.0.348.0.348 
1 60 DATA 4.5.0, 348 . , 348 . 5.0.0. 4.5 . -0 , 348 . -0 , 348 
170 DATA 3.5.-0.348.-0,348 

180 GOSUB 510SREM SET UP MACHINE LANGUAGE SUBROUTINE FOR 
PRINTER 

190 R':: 1 ::'=2. 5s R'::2::'=0s R<3>=0s X'::0>=2. 5s V'::0>=-10s Z'::0::' = 1 s B*="Z" 
195 RETURN 

200 REM SORT BV DECREASING DISTANCES TO UIEWPOINT 

202 FOR J=l TO HI 

204 DV=V •:: J y < > s I F DV< =0 THEN PR I NT " DECREASE V < O > " s STOP 
206 DK=:K C J > -K < > s DZ=Z CJ > -Z < O > 

208 D I < J > ==SQR < DV:*D V+D:K*DX+DZ*DZ > s RS ■:: J > = ATN ( F*RD •■•D I C J > > 

209 U < J > = ATN •:; F*DZ.--DV > s H ■:: J > ^ ATH ( F*D:K.-DV ':j ' NEXT J 

210 FOR J=l TO Nl-lsK=J 

220 IF DI<I<+1><=DI'::K> THEN 270 

230 A=X < K > ! X < l< ::• =X < K+ 1 > s X l<+ 1 > = A a A=S' < K > s V < l< > ^-V <K+l > s V < l<+ 1 ::■ = A 
2^.0 A=Z l< s Z >:: l< ::• =Z C K+ 1 > s Z < l<+ 1 > = A ; A=u < K > s U K > =U < l<+ 1 > s U < l<+ 1 > = A 
250 A=H < l< > 5 H <: l<> =H < K+ 1 > s H < l< -i- 1 > = A s A=RS < K > s RS < 1< > =RS l<+ 1 > s RS 
<I<+1>=A 

255 A=D I < I<> s D I < l< > =D I < l<H- 1 > s D I < K-i- 1 > = A 
260 l<==K-lsIF K>0 THEN 228 
270 NEXT J 

280 M I Ni..i=>J < 1 > -RS 1 ::■ 5 M AXU=U < 1 > +RS < 1 > 
285 M I NH-!-! < 1 ) -RS M A;-:!-!-H < 1 > "-RS < 1 > 
290 FOR J=l TO Nl 

300 IF U';:.J>~RS':;J><M1HU THEN MINU=U< J;:'-RS';;J> 
310 IF U'M>+RS<J> >MAXU THEN MAXU^UC .J>+RS<J> 
320 IF H'::J>-RS'; JXMINH THEN MINH=H'::J>-RS':: J> 
330 IF H'::J>+RS':: j::' >MAXH THEN MAXH=H'::j::'+RS< J> 

340 NEXT J s DH=M AXH-M I NH s DU=M AXU M I N'...' 

350 FOR J=l TO Nl 
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360 H < J > =13* < H < J > -I'l I HH > .'•■DH*W I D s U < J > =i3* < U < J > -M I HM > -•'DU*HGT 

370 RS ■:; J > -G*RS < J > ..••DH*l.J I D • HEHT J s RETURN 

400 REM PLOT POINTS AND PRINT ON PAPER 

405 MU=05FOR J=l TO NlsIF U<J>+RS< J> >I1U THEN NU=U < J > -i-RS < J > 

406 NE;KT J5 MU=INT<MU> + 1 
410 FOR JS=MU TO & STEP -1 
420 FOR LS=0 TO OsGOSUB 490 

430 FOR l<S=LS*W2 TO LS*l..J2MJ2~l s SS=0 

440 FOR NS= 1 TO N 1 s PS=SQR < < KS-H < NS > •-•2+ < JS-U < NS > > -'-2 > 
450 IF .::PS-RS(:NS>><1 then SS=li;lF PS;;RS':;NS> THEN SS-0 

460 nekt NS s POKE 1 . ss s :::::k=lisr > s ne;-;t ks . ls 

470 P0H;:E 1 . 1 3 s KX-~USR < 8 > ' NEl'-lT JS 
490 RETURN 

•490 POKE 1 , 27 5 :«::«:=usR < e > s poke i , 75 - kk-usr < > s poke 1 , W2 

500 XX==USR < > s POKE 1 , s XX=USR < © > s RETURN 

510 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR PRINTER 
520 POKE 260 , s POKE 26 1,0! POKE , 62 s POKE 1.27s POKE 2 , 205 
530 P0I<;E :3 1 2 s poke: 224 s POKE 5 . 28 1 ' XX=USR < > s POKE 1 65 
:54gi XX==USR •:: 8 > s POI'^Z 1 . 1 " >::;«;=USR < > 5 RETURN 
600 REM ROTATE POINTS ABOUT AN AXIS 

610 FOR J^=:l TO Nl 

620 I F B$= " Z " THEN A 1 =X < J > s A2=R <:. 1 > s A3™ V < J > s A4=R < 2 > 
630 I F B*= " W " THEhl A 1 J ) : fi2=R C 1 > : A3~Z J > : A4=R < 3 > 
6 4 ]: F B ^^"H" T H E H A 1 " S ' < J > : A 2 == R < 2 > s A 3 = Z < J > s A •^1- = R < 3 
6 5 F' 1 " A 1 A 2 1! P 2 ~- i-i 3 - A 4 
660 L==SQR P 1 *P 1 •HP2*P2 

670 IF F2=0 THEN A5==-';P1<0;'*3,. 141593 
680 IF P1=0 THEN A5==SQN<P2>*1 , 570796 

690 I F P2 < >0 i-lMD P 1 < '> THEN A5==i~iTN < P2.--p 1 > t P 1 < > *3 . 1 4 1 593 

700 A5-A5+E 

7 1 J: F B*= " Z " THEN X <. J > «=L*COS < A5 > +R < 1 > " V < J > =L*S I N < A5 > +R < 2 > 
720 I F B*== " V " THEN X < J > ==L*COS < A5 > +R < 1 > s Z < J > =L*S I N < A5 > +R < 3 > 
730 I F B*= " X " THEN V < J > =L*COS < A5 > H-R 2>sZ< J > =L*S I N < A5 > +R < 3 > 
7-^-l NEXT J s RETURN 
READ',' 



The two programs are the same except for 
several Hnes. Line 10 says "high-resolution" in- 
stead of "low-resolution." In line 100 we've added 
the variable W2 and have increased the values of 
HGT and WID. We have added line 180 which sets 
up the machine language subroutine for passing 
numbers to the printer, bypassing the BASIC 
operating system. Again, we could change that sub- 
routine to BASIC statements. We have also added 
line 420, which is a nested loop that sets up the 



configuration for the printer to accept numbers and 
print tliem as graphics. Line 430 has been changed, 
as has line 460. Line 470 is also different. Lines 
490-540 are the same kind of instructions as we saw 
for tlie high-resolution function plotter earlier. ITie 
rest of this program is tlie same as the low- 
resolution version. 

By changing Nl you can read in more data and 
plot more spheres. You can increase the height and 
width of the plotting area by changing WID and 
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*** * 
*** 



*** 
**** 



*** 
*** 



*** * 
**** 



***** ****** ** ** 

******** ** **** *** *** ** * 



*** *** 
** ** 
* * 



*■ * 

* * 

* * 

* * 
* * 



* **** 
**** * 



******* ****** 
** ** * * 



+ ** * 
**** 



* *** 
*** 



******* 



*** 
* ** 



* *** * 

** **** *** *** 
***** ** ** ****** 



** ***** 
* ******** * 
** *** 



**** 

********* 



Fig. 3-6. Partial rotation of a molecular mode! about the X axis. 
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*** 

**** 



*** 



**** 
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* **:+; 

**** 



*:+:*;+:;+(*:f; 



* ++. -+:+; ;f 

***** 

* .***:* * 

* ♦ * * 
* :t: *; 



*** ***** 



*** * 
** ** 
*** 



*** ***** ******* 
* *** 



*** ** 
* **** 



** ** * 



Fig. 3-7. Partial rotation of left group about the X axis. 
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****** ** 



******** 



** **** 



*** *** 



*** ***** ******* 
f* * *** 



******-;♦ 



******* 



*** *** 



******* 



*** ****H 



******* 
*** * 



****** 
** ** 



******* 



** *** 



*** ***** ******* 
** * *** * 



** ** * 
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Fig. 3-1 1 . Partial rotation of the left group of the high-resolution model about the X axis. 



HGT. If you want to show different kinds of atoms 
in the molecular model you might read in different 
radii for tliem with data statements. All the spheres 
in our model had the same actual radius, although 
they looked larger when they were closer to the 



viewpoint. You might even change line 450 to ran- 
domly shade tlie spheres. We could spend a lot of 
time with this program, but let's go on to bigger and 
better things. It doesn't pay to stay in one place too 
long. 
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Chapter 4 




We briefly discussed perspective when we plotted 
a three-dimensional figure. vVe learned a little bit 
about erasing hidden points both in the function 
plotters and in the molecular model. This chapter 
deals with the drawing of figures that have straight 
lines and are in perspective. We will see all the 
lines at once, giving the figures the appearance of 
wire models. 

THE NATURE OF PERSPECTIVE 

What is it about sight that makes distant ob- 
jects appear small and close objects appear large 
and that makes tall buildings seem to shrink down 
coward tlie horizon? The ans wer lies witli geometry 
and trigonometry. Distances twice as great, make 
objects seem one-half as large. When our eyes are 
very close to objects, that object appears very large 
and vice versa. The angle between the top of the 
object, our eye, and the bottom of the object de- 
creases with distance. The same is true for the 
width. Although we have not really answered the 



question, we have enough information now to write 
computer programs that di'aw perspective line 
drawings. 

Perspective Plotting 

In Chapter 3 we mentioned a couple of equa- 
tions that we used to plot points in perspective. 
They contained some numbers that we had to define 
rather arbitrarily. We will now talk about them 
further and discuss how to draw perspective Ones. 

Let's look at those equations. They were: 
V=F1* ATN(F2*DZ/DY) and H=F1*(F2* 
DX/DY), although in the programs we used the 

V ai lai/ic-o, aiiu x , avjx j. j. ujtx\a a ^, *. ooj*v.-wtj . w*j • . . ^ 

actually used two steps. We set V=ATN(F*DZ/ 
DY); then adjusted it to fill the screen, and then 
readjusted it using the G factor. In these equations 
G or Fl is the magnification factor, and F or F2 is 
equal to the inverse of the distance that we set as 
one-half infinity to the eye. In other words if we 
were using a vanishing point type of perspective 



48 



drawing, this would be equal to one-half the dis- 
tance to the vanishing point on tlie paper. It's a 
fudge factor, really. The Fl factor is for the scaling 
of the figure and tlie F2 factor is for the apparent 
distortion in size as an object approaches very 
close. If we increase the value of Fl, the figure will 
be magnified. If we increase the value of F2, it 
really becomes distorted, much as if it were viewed 
through a fisheye lens. 

In the equations, V is the plotted vertical posi- 
tion of the point on the screen or paper, and H is the 
horizontal position of tlie point. DX is the differ- 
ence, along the X dimension, between the coordi- 
nate of the point and the X-coordinate of the view- 
point. DY is the difference between the Y-co- 
ordinate of the point and the viewpoint, and DZ is 
the difference between the Z-coordinate of the 
point and the viewpoint. ATN is the arctangent 
function. 

What we do in the perspective line drawings is 
to find the V and H and construct a linear line 
connecting tliem. We make the assumption that all 



the points on a straight line between two perspec- 
tive points are in perspective also. I offer no 
matJiematical proof; we must rely on an intuitive 
feeling tliat the assumption is true. 

PERSPECTIVE LINE PLOHERS IN BASIC 

We will look at two perspective line plotters; 
one is low-resolution and one is high-resolution. 
Hie low-resolution plotter will be used to draw 
some simple solid geometric shapes, and the high- 
resolution one will be used to draw the perspective 
lines of a house. 

Low-Resolution Program In BASIC— Program 8 

Figure 4-1 shows solid geometric forms as 
they are rotated about the vertical axis. The objects 
are supposed to be a pyramid on a square base, a 
cube, and two flat diamonds. The low resolution 
really does not do justice to the program, which will 
be modified to create a high-resolution drawing of a 
house. 



10 REM LOW-RESOLUTION LINE PLOTTER 

20 REM WRITTEN BV TIMOTHV J. O'MALLEV 

30 REM COPYRIGHT 1982. TAB BOOKS INC. 

40 REM 

50 QOSUB 3^^0sREM INITIALIZE UARIABLES 

70 FOR J=0 TO US FOR K=0 TO Ws UA< J. K>=32: NEXT K. J 

75 GOSUB 600: REM ROTATE POINTS ABOUT AXIS 

80 GOSUB 800: REM TRANSLATE K.V.-.Z TO H.U 

100 GOSUB 12005 REM DRAW LINES CONNECTING POINTS 

105 GOSUB 1600s REM PRINT OUT LOW RESOLUTION 

110 GOTO 70 

300 REM INITIALIZE UARIABLES 

305 IP=2l!lA==43 

310 DIM I ■:: I A > . K < I P > . •:; I P > , Z ■:; I P > . R < 3 > . U < I P :;■ r H I P > 

320 FOR J=l TO IP 

330 READ V'::J>.Z'::j::' 

340 NEXT J 

345 DATA O.O.I. 1 . . 1 . 1 . . O . .-, n 8.1.1 

346 DATA 1.1.1. 1.1.0. Q.l.O. 2.2.0. 3.2.0 

347 DATA 3 . 3 . O . 2.3. O . 2.5.2.5.1 

348 DATA 3 . . 1 . 2,5. O . O ., 5 . 3 . Q . . 3.5. . 8 . 5 

349 DATA 0.3.8. 0.3.5.8,5. 0.3.1. 0.2.5.8,5 
380 FOR J=l TO I A 
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390 READ I'::J> 
400 HEKT J 

405 DATA 1 . 2p 3. 4. 1 . 5n 6^ 7. 8. 5. 0. 4. 0. 2.6. Q. 3. 7n 

410 DATA 9, 10:. 1 1 :. 12:. 9:. 13n 10:. 0. 1 1 p 13:. 12:. 

■4 1 5 DATA 1 4 r 1 5 . 1 e. . 1 7 . 1 4 :. Q 
4 1 e. DATA 1 B :. 1 9 :. 20 .21.1 8 
420 R =2 ! R < 2 > =2 " R < 3 > ==0 . 5 
430 K < > =2 s V < > =~ 1 s Z ■:: > =3 

440 F=0„ 1 s G==l s REM I" IS THE DISTORTION AND G IS I1AQNIF ICATION. 
450 S=lsT==IP 
460 B*=="Z" 
470 W=S3sU=:63 
475 DIM UA<U:. W> 

480 E=0„4sREM ROTATION INCREMENT 
500 RETURN 

600 REM ROTATE POINTS ABOUT AKIS 

610 FOR J=S TO T 

620 I F B*= " Z " THEN A 1 =X < J > : A2=R <. 1 > s A3=',' < J > s A4=R C 2 > 
630 I F B*= " 'i^ " THEN A 1 =K < J > s A2=R A3=Z C .J > : A4=R < 3 ) 
640 I F B*= " X " THEN A 1 =V < J > 5 A2=R C2>i A3=Z < J > ' A4=R < 3 > 
650 P 1 = A 1 " A2 5 P2= A3- A4 
660 L=SQR >■: F 1 *P 1 +P2*P2 > 

67i3 IF P2-S THEM A5-e <P1<9>*3. 141593 

680 IF P1=0 THEN A5==SGN < P2 > * 1 . 570796 

690 I F" F'2< >0 AND P 1 < >e THEN AS^i^^Th! < P2 P 1 > - < P 1 ••: > -^5 .141 593 
700 A5-A5+E 

7 10 IF B$= " Z " THEN X < J > =L*:C:OS < A5 > +R < 1 > s V < J > =L*S I N < A5 > +R < 2 > 
720 I F B*=: " W " THEN " < J > =L*COS ( A5 > +R 1 > s Z < J > =L*S I N ( A5 > +R < 3 > 
730 I F B*= " X " THEN V < J > =L*COS < A5 > +R < 2 > s Z < J > :=L*S I N <. A5 > +R < 3 > 
740 NEXT J 
750 RETURN 

800 REM TRANSLATE K.V.-Z. TO H.-.U 

810 FOR J=l TO IP 

820 DV=V'::J>-V<:0>: IF DV<=0 THEN PRINT "DECREASE V'::0>"sSTOP 

830 DX=x<jy-x<&y 
840 DZ=z< j>--Z';:0;:' 

850 U-:: J;:'=ATN<:F*DZ--DV> s REM UERTICAL SCREEN POSITION 
860 H<J;:'=ATN'::F*DX^-DV>i;REM HORIZONTAL SCREEN POSITION 

S7S r-iE;-:T j 

880 M I NU=0 .:: 1 > ! MAXU=U < 1 > 

890 M I NH=H < 1 > s M AKH=H ■:; 1 > 

900 FOR J=l TO IP 

910 IF JXMINU THEN MINU=U'::J) 

920 IF i..KJ>>MAKU THEN MAXO=UCJ> 

930 IF HC JXMINH THEN MINH=H':: j;:- 

940 IF H<J>>MAJ^H THEN MA:KH=Hc:J> 
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950 NEXT J 

960 DH=MAXH~MINH 

970 DU=MA?^;U-M I NU 

9S0 FOR J=l TO IP 

990 H •:: J ;:■ =G* ':: H < J > -hi I HH > .-•DH*!...! 

1 000 U ■:: J > =G* < IJ ■:: J > -hi I HU > ■■ DU*IJ 

1110 HEKT J 

1120 RETURN 

1200 REM DRAW LINES CONNECTING POINTS 

1210 FOR J=l TO IA-1 

1220 IF I<J>=0 OR I'::.J+1>=0 THEN 1340 

1230 HH==H < I < J+ 1 > > -H < I J > > 

1 240 UU=U >: I < J+ 1 ;:• ) -U < I ( J > > 

1250 SN=SGN'::HH> 

1260 IF SN=0 THEN 1368 

127^0 hl=i...iU •• HH 

1 280 B=U < I •:; J > > -M*H < I < J > > 
1 290 SP=SQR •:; UU*UU+HH*HH > 

1300 FOR K=H<I<:J>> to H-:; I ( J+l > > STEP HH.-'SP 

1310 P=h1*l<+B 

1320 QOSUB 1500 

1330. NEXT l< 

1340 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INF I NITS' 

1370 I<=H<I<J::'> 

1380 IF SQN'::UU;'=0 THEN P=H < I< J > > : GOSUB 1 500 s GOTO 1340 
1 390 FOR P=i..i •:; I < J > > TO U < I < J+ 1 > > STEP SGN < W > 
1400 GOSUB 1500 
1410 NEXT P 
1420 GOTO 1340 

1500 REM PLOTTING SUBROUTINE 

1510 IF P)U OR P<0 OR low OR K<0 THEN RETURN 

1 520 U1 = I NT < P > : U2= I NT C l< > 

1530 UACUl :. U2:;'=42 

1540 RETURN 

1600 REM LOW RESOLUTION PRINTER 

1605 MH==0!!FOR NM^^l TO IPs IF MH<U.::nm:' THEN MH^=U<NM) 

1 607 NEXT NM ■ 1 NT < MM > + 1 

1610 FOR JS^^MH TO STEP -Is FOR l<S=0 TO W 
1 630 PR I NT CHR$ < U A JS . i<S > > ; s NEi^^T KS ' PR I NT 
1 660 NEXT JS : PR I NT CHR$ 1 2 > ? s RETURN 
READS' 

Let's look at tliis program line by line. Lines Line 50 is a subroutine call to line 300, which sets 
10-40 are remarks about the nature of the program, up the program by reading data, defining variables 
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************** * * 
*** * *** * 



* * 



***** ** * 
*** **** 
* ****** 



* ******* 



******** 



* * 



******* 



** ************ * 



** 



* ******* * 
*** * *** 
***** **** 
***** * 



******** * 



***** 
* * 



**** 
* ** 

* ********* * 



***** * **** 
*** * ** 

** * *** 



* * 
** ** 



** * * * * 



*********** 



** * * 

** ** 



Fig. 4-1 . Partial rotation of solid geometric forms about tfie vertical axis. 
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and dimensioning arrays. Line 70 is a nested loop 
that sets all the elements of the VA array equal to 
32. 32 is the ASCII code for a blank space. Line 75 is 
a subroutine call to line 600, which rotates points 
about an axis. Line 80 is a call to line 800, which 
translates the X, Y, and Z coordinates of each point 
to a horizontal and vertical value so that it can be 
stored in the array, VA. Line 100 calls the sub- 
routine at 1200, which draws lines between points, 
and line 105 prints out the low-resolution figures as 
asterisks. Line 110 goes to line 70 to repeat the 
rotation and printing without end. You might want 
to change it to a finite number of repetitions, possi- 
bly by using a loop. 

Line 300 is a remark statement for the ini- 
tialization of the program. In line 305, IP is the 
number of points that we give coordinates for. 
These points are corners in the figure. lA contains 
the number of points in the I array. This controls 
which points are connected to which points. Line 
310 dimensions various arrays used in the program. 
Lines 320-340 read tlie coordinates of the points, 
these coordinates are found in lines 345-349. Lines 
380-400 form a loop that reads in the I array ele- 
ments from data statements in lines 405-416. Point 
1 is connected to point 2, which is connected to 
point 3, which is connected to point 4, which is 
connected back to point 1, which is also connected 
to point 5, and so forth. A is used as a terminator 
for the line connections. By using this scheme, the 
computer will be able to compute the points for the 
connecting lines and thus determine where the 
lines are to be made. Line 420 says that the X-axis 
rotations are to be made about tlie line X=2; Y-axis 
rotations about the line Y=2 and Z-axis rotations 
about the line Z=0.5. In line 430 the coordinates of 
the viewpoint are defined. Line 440 sets the 
perspective factors. In line 450, S is the index of the 
first point to be rotated and T is the index of the last 
point to be rotated. In this case, we want to rotate 
all of them. Using these variables allow greater 
flexibility for the rotations. Line 460 says to rotate 
the points about the Z axis. Line 470 contains the 
variables for the width and height respectively. 
Line 475 dimensions the VA array, which will store 



the points and lines of the figures. Line 480 defines 
the rotation increment. Line 500 returns control to 
line 70. 

Lines 600-750 rotate points using the same set 
of transformation equations that we have seen be- 
fore. Line 610 allows you to rotate only some of the 
points, those from index S to index T. It then 
returns control to line 80. Lines 800-1120 form a 
subroutine that translates the three-dimensional 
points to two-dimensional positions in the arrays H 
and V. We have examined this subroutine before, 
so enough said about it. Line 1120 returns control 
to line 100. 

Lines 1200-1350 draw lines connecting the 
points indicated in array I. If two points have the 
same vertical position the short subroutine in lines 
1360-1420 is used. The subroutine is necessary 
because the program defines the equation of the 
slope of the line between the two points and a 
vertical line has an infinite slope. Line 1220 checks 
for the zero, indicating the terminus of a line con- 
nection. Lines 1230-1240 find the difference be- 
tween the horizontal and vertical positions of the 
points so tliat tlie slope, M, can be calculated in line 
1270. Line 1280 computes B, the Y-intercept, so 
that the equation of the current line can be com- 
puted in line 1310 of the program. SP, in line 1290, 
is the distance between the two points. Lines 
1300-1330 fill the space between the two points 
with an appropriate number of other points, making 
a line. 

The plotting subroutine in lines 1500-1540 is 
called by the line connecting subroutine. This sub- 
routine checks to see whether or not ttie points are 
outside of the dimensions of the array by using the if 
statement in line 1510. If they are not, it rounds the 
position of the point to integers in line 1520 and sets 
the VA array at that position to 42. 42 is the ASCII 
code for the asterisk. You may change this number 
if you want to print a different symbol. 

Lines 1600-1660 form the low-resolution 
printer routine. The variable MH is used as the row 
number in tiie array where the printing should start. 
This way we eliminate the printing of a lot of empty 
spaces at the top of the array. As I said before, it is a 
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"tab" of sorts. The loop starting in 1610 simply 
prints out the CHR$ of each of the elements in the 
array. Line 1660 contains a statement that clears 
the screen because it is a form feed command. 

That concludes the program. Now we will look 
at a program that uses much the same programming 
to produce a line drawing of a house. 



High-Resolution Program In BASIC— Program 9 

Figure 4-2 depicts a few of the possible views 
of the house produced by the high-resolution line 
drawing program. When using line drawings, it is 
best to use as few lines as possible or else the figure 
will appear cluttered and confusing. I-et's examine 
the program listing. 



10 REM PERSPECTIUE LINE PLOTTER OF HOUSE 

20 REM p,, jjf^Qjj^y j_ o'MALLES' 

3@ REM COPVRIGHT 1982^ TAB BOOKS INC. 

48 REM 

50 GOSUB 3008 REM INITIALIZE UARIABLES 

70 FOR J=0 TO US FOR K=0 TO Ws UA<J, K>=0s NEXT K.J 



ROTATE POINTS ABOUT AKIS 
TRANSLATE "X.VSZ TO H.U 
DRAW LINES CONNECTING POINTS 
PRINT OUT HIGH RESOLUTION 

INITIALIZE UARIABLES 



75 GOSUB 600 5 REM 
80 GOSUB 8005 REM 
100 GOSUB 1200 s REM 
105 GOSUB 1600 s REM 
110 GOTO 70 
300 REM 
305 IP=34s IA=87 

310 D I M 1 1: 1 A > ■:: i p > . v < i p > , z <: i p > . r < 3 y u < i p > .- h <: i p > 

■Sjiki r UK -J — i i <J I r 

330 READ X < J > 7 V •:: J > , Z C J > 

348 NEXT J 

345 DATA 0:.0j0.- 0,48.-0:. 36.-48r0. 36.18,0:. 20.18.0 

■346 DATA 20 . 0.0. 261 . . 10. . . 10 . .8.10. 20.8.1 Hi 



28.48 
36 ? 2£'. 



347 DATA 1 .8.12. . 8 . 20 

348 DATA 10.48.27. 20.40 

349 DATA 20.48.20 

350 DATA 20.28.12 

351 DATA 20.4 
380 FOR J=l TO I A 
39€i READ I J > 

J 

1 _ •"■ 



1 £1 . 3 . 27 . 20 . 8 . 20 . . 40 . 2£i 
20 . 10.34.27. 20 . 28 . 28 . 28 . 



^ 1 .-■ 

12. 



36 ? A-'d: 



;0r 



3fo . . 20 ? 2y 



. 20. 40. 12. 



36. 18. 10. 20. 18. 1G1 
20 . 48 . 10. £1 . 48 . 1 . . 40 . 1 2 



' 5 6 5 . 9 . 12. 13 
. 1 8 . 20 . 



31.0. 15.34 



14. 10. 



400 NEKT 

485 D ATi^ 1 2 . 3 4 5 5 . 6 . 1.8.7. 1 8 - 9.8- 11 - 
4 1 DATA 12. 15. 16. 13.8. 17. 18. 1 9 . 20 . 1 7 

415 DATA 19.25.24.23.22.21.17.8.25.22.8 

416 DATA 23 .3.8. 24 . 2"i'' . 2fc. . 19.8. 26 . 29 . b . 8 ? 

417 DATA 21.30.0.33.34.31.32:. 33.2.0. 11 

418 DATA 0.16.17.0.14.19 
420 R < 1 > = 1 8 s R •:: 2 :■■ =24 s R C 3 > = 1 4 
430 X < > =6 s V < > = ■- 1 00 s Z < > =6 

440 F=0„ lsG=l5REM F IS THE DISTORTION AND Q IS MAGNIFICATION. 
450 S=lsT=IP 
460 B*="Z" 
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470 l...l=253 : U=25 s UI2= 1 27 
475 DIM UAc:LU l...l> 

480 E=0„4:REM ROTATION INCREMENT 

490 POKE 26.0, OS POKE 26 1,0: POKE 0,625 POKE 1,27= POKE 2,205 

500 POKE 3 , 1 2 s POKE 4 , 224 s POKE 5 , 20 1 : KK=USR < > s POKE 1 , 65 

5 1 KX=IJSR •:: ■> s POKE 1,1s :KX=USR •:; O > : RETURN 

600 REM ROTATE POINTS ABOUT AXIS 

610 FOR J=S TO T 

620 IF B*= " Z " THEN A 1 =X •:: J ::■ : A2=R 1 > s A3= V C J > : A4=R ■:; 2 ::■ 
630 I F B*= " " THEN A 1 =X < J .J s A2=R < 1 > : A3=Z < J > : A4=R ■:: 3 > 
640 I F B*= " X " THEN A 1 = V •:: J ::• : A2=R < 2 > : A3=Z < J > '. A4=R C 3 > 
650 P 1 = A 1 ~ A2 : P2=A3-A4 
660 L=SQR c; P 1 *p 1 +P2*P2 > 

670 IF P2=0 THEN A5=0--'::P1<0::'*3. 141593 
680 IF P1=0 THEN A5==SGN'::P2>*1 . 570796 

690 I F P2< >0 AND P 1 < >e THEN A5= ATN C P2.- P 1 > - < P 1 < > :+:3 . J 4 1 593 
700 A5=A5+E 

710 IF B*="Z" THEN X< J>=L*COS';; A5>h-R.:: 1 > s V< JiJ^L^SINC A5>+R■;:2> 
720 IF B*= " V '■ THEN >i t: J > =L*COS A5 > +R C 1 > 5 Z < J > =L*S I N < A5 +R 3 
730 IF B*= " ;:•=: THEN V ■:; J .:. =L*COS ■:: A5 > +R ■:: 2 > 5 Z C J > =L*S I N < A5 5 +R C 3 
740 NEXT J 
750 RETURN 

800 REM TRANSLATE X,V,Z TO H,U 

810 FOR J=l TO IP 

820 DV=V<J::.-V<:0::'! IF DVO0 THEN PRINT "DECREASE VfOV'sSTOp 
830 DX=X< j::.-k<;0> 
840 DZ=Z'::J>-Z'::0::. 

850 U •:: J > = ATN ■:: F*DZ..--D'v' > : REM UERT I CAL SCREEN POS I T I ON 
860 H'::J>=ATN<;F*DX.--DV::'5REM horizontal SCREEN POSITION 
870 NEXT J 

880 M I NU=U < 1 ::• s MAXi...i=U < 1 > 

890 M I NH=H < 1 > s MAXH=H < 1 > 

900 FOR J=l TO IP 

910 IF UCJXMINU THEN MINU^OCJ:) 

920 IF U<J>>MAXU THEN MAXU=U'::j:5 

930 IF H<J><MINH THEN MINH=H<:j::' 

940 IF H';j::'>MAXH THEN MAXH=H< J::. 

950 NEXT J 

960 DH=MAXH--MINH 

970 DU=MAXU-MINU 

980 FOR J=l TO IP 

990 H < J > =13* •:; H < J > -M I NH > ■• DH*W 

1 000 U <• J .;• =i3* < U .:: J > -I'l i nu > .■■■DU*U 

1110 NEXT J 

1120 RETURN 

1200 REM DRAW LINES CONNECTING POINTS 
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1210 FOR J=l TO IA-1 

1220 IF I<J>=0 OR I<J+1>=G1 THEN 134© 

1 230 HH=H <: I J+ 1 ::■ > -H >: I < J > > 
1 240 uu=u ■:; I ■:: H- 1 > ::' -u < I < J > > 
1250 SH^SGNCHH) 
1260 IF SN=0 THEN 1360 
1270 M=UU--HH 

1 280 B=M < I ■:: J > -ri*H c; I < J > > 
1 290 SP=SQR i...iU*UU+HH*HH ::■ 

1300 FOR !<=H':: I < J> > TO H-; I C J+1 > > STEP HH^-SP 

1310 P=M*K+B 

1320 GOSUB 1500 

1330 NEKT l< 

1340 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS IHFIHITV 

1370 K=H<I'::J>> 

1380 IF SGN'::UU;:'--0 THEN P=H< I ■:; J> > s GOSUB 1500s GOTO 1340 
1 390 FOR P-U < I < J > > TO U < I < J+ 1 > > STEP SQH < UU > ■•- 1 2 
1400 GOSUB 1500 
1410 NEXT P 
1420 GOTO 1340 

1500 REM PLOTTING SUBROUTINE 

1510 IF P>U OR P<0 OR K>U1 OR K<0 THEN RETURN 

1 520 U 1 = 1 NT < P > ' U2= I NT ■:: K > 

1 530 U A < U 1 , U2 > =UA < U 1 , U2 > 0R2-'- 1 NT < 1 2* < P-U 1 > > 
1540 RETURN 

1600 REM HIGH RESOLUTION PRINTER 

1610 FOR JS=U TO STEP -isFOR MS=11 TO O STEP -1 
1620 ES=INT'.:2 -MS>sF0R LS=0 TO 1 s GOSUB 1650 

1630 FOR I<S=LS*UI2 TO LS*UI2+I.,J2- 1 s POKE l^SGNCBS AND U A C JS . KS > > 
1 g.4i3 ;:.:;x=uSR ■:: O > ' NEKT KS n LS s POKE 1,13s KX=USR <.9>'. NEXT MS . JS 
1 f::.45 POK E 1.12s :x:x=USR ■:: > s RETURN 

1650 POKE 1, 275 XX=USR<0> SPOKE 1 . 75s XK=USR'::0> s POKE 1 , W2 

1 660 XX=USR < > s POKE 1 :■ O s XX=USR >■. > s RETURN 

READ',' 



Lines 10-40 are remark statements for the 
program. Lines 50-110 are the same as they were in 
the last program, except that now the subroutine at 
line 1600 prints out figures in high-resolution. Line 
70 sets the elements of the array to zero rather than 
32 since we are using a different method to print out 
points. Line 305 sets IP and lA at larger values 
because there are more points and connections. We 
have added a few m.ore data statements to include 



this information. We have changed line 420 to ro- 
tate the figure about different axes than we did in 
the last program. Line 430 is also different. In line 

Ann .„„ ^AAr.^ ^rr..-;oKlo \%70 ortrl olfcroH ihf^ 

values of W and U. We have added the statements in 
lines 490-510 to set up a machine-language sub- 
routine to pass numbers directly to the printer as 
we have done in other programs. 

The translating subroutine is exactly as it was 



56 



before. The line connecting subroutine is the same 
except for line 1390, which divides the step 
SGN(W), by 12. Line 1530 does a Boolean algebra 
binary-logical OR on the numbers in VA(V1,V2) 
using 2 to the power of the integer of 12 times P 
minus VI. In this program we are actually plotting 
bits of numbers when we plot the figure. 

The high-resolution printer is very different 
from tlie low-resolution printer. Therefore we have 
added a nested loop, MS, to take care of the bits of 
the numbers. It's much like the high-resolution 
printer routine that we used in the program that 
created a three-dimensional plot of a function. 

ROTATING POINTS IN SPACE 

We've seen programs that are rotation trans- 
formation equations, but we really have not dis- 
cussed how we arrived at tlie equations. Neither 
have we discussed how to rotate points about an 
arbitrary axis. We will do both in this section. 

Rotation About a Defined Axis 

We can rotate a set of points parallel to the X, 
Y or Z-axis, altliough the rotation doesn't have to be 
about the axis itself. We can designate R(l) to be 
the point about which the points are rotated when 
we perform an X-axis rotation; for example, if 
R(l)=3, we are rotating about the HneX=3. R(2) is 
for the Y-axis and R(3) is for the Z-axis. 

If we rotate points about the X-axis, the 
X-coordinate of each point does not change. As a 
point is rotated, it circumscribes a plane. The locus 
of the points is a circle on that plane. The other two 
coordinates do change, however. As we rotate 
about the X-axis, the Y-coordinate changes as a 
function of the cosine of its original angle plus the 
increment of rotation. The Z-coordinate changes as 
a function of the sine of its original angle plus tlie 
rotation increment. In the programs tliat include 
rotations, we have generalized the set of equations 



so that Al is the first coordinate that changes and 
A2 is tlie second. We must find the size of the angle 
tliat each point is rotationally displaced about its 
axis. Then we must add the increment to that angle 
and redefine tlie points to get the rotation. 

Rotation About an Arbitrary Axis 

What if we wanted to rotate a set of points 
about an arbitrary axis, one that isn't parallel to any 
of the three axes? One solution is to rotate the set of 
points parallel to an axis first, then perform the 
rotation that you want, and finally rotate the points 
back from the parallel axis to the original position. 
The result would be that the points would seem to 
rotate only about the arbitrary axis. Another solu- 
tion is to redefine our transformation equations to 
include rotation about an arbitrary axis. In the pro- 
grams that follow, we will rotate some points about 
an arbitrary axis using the first method. 

INTERACTIVE SPACE 

SHUTTLE SIMULATIONS IN BASIC 

We now look at two versions of a space shuttle 
program in BASIC; one is a low-resolution version 
and one is a high-resolution version. We will be 
able to manipulate the model in three dimensions 
and operate the cargo bay doors. 

A Low-Resolution 

Perspective Line Program— Program 10 

This first program uses block-type graphics to 
make a figure. Figure 4-3 shows the model of the 
space shuttle as it may look on the video screen 
when the program starts. Figure 4-4 shows the 
result of rotating the model along the X-axis 1.0 
radians. Tliese figures show the wings, tail, cargo 
bay doors, nose and windows of the spacecraft. By 
adding more points and lines, you could embellish 
the figures; however, in low-resolution they might 
look too jumbled. 



10 REM LOW-RESOLUTION SPACE SHUTTLE SIMULATION 

20 REM WRITTEN BV T I MOTHS' J. 0-MALLE'V 

30 REM COPVRIGHT 1982.- TAB BOOKS INC. 

35 REM 

40 PRINT CHR*';i2::'; 
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41 PR I NT SPRINT SPRINT 

42 PRINT TABas::-? "INTERACTIUE SPACE SHUTTLE SIMULATION" 

43 PRINT TAB':: 1 8 "WRITTEN BV TIMOTHV J. O'MALLEV" 

44 PRINT TABCIS:;'!! "COPVRIGHT 19S2n TAB BOOKS INC." 

45 PR I NT s PR I NT s PR I NT 

46 INPUT "DO VOU WANT INSTRUCTIONS <VES OR NO "5 AN* 

47 IF AN*="VES" THEN GOSUB 2080 

48 PR I NT 5 PR I NT s PR I NT 

49 PRINT "THE COMPUTER WILL NOW SET UP THE PROGRAM." 

50 GOSUB 3000s REM DEFINE BLOCK GRAPHICS 
60 GOSUB 300! REM INITIALIZE UARIABLES 

65 GOSUB 500 s GOSUB SO© s GOSUB 1200: REM DISPLAV START 
70 INPUT "COMMAND" 5 CM* 

75 M1*=LEFT*<CM*. 1 s E=UAL'::RIGHT*<CM*. >::LENc:CM*> --2> > > 
80 GOSUB 4008s REM INTERPRET COMMANDS 
90 GOSUB 60005 REM THIS LINE IS OPTIONAL 
100 GOTO 70 

300 REM INITIALIZE UARIABLES 

305 I P= 11 2 s I A= i 87 s PTR=0 s I D=0 

310 DIM I'::iA>.X'::iP>. V'::iP>.Z'aP>.R<3::'. U'::IP:;',H<IP> 

315 DIM STLCIOO::- 

316 DIM SX ■:: I P ::• p S'v' < I P > n SZ < I P > 
318 DIM SN'::i00::- 

320 FOR J=l TO IP 

330 READ KCJ). V<J>.Z'::J> 

335 sx < J > =;k < J > s ss' •:: J > < J > 3 sz J ^^z c j > 

340 NEXT J 

345 DATA 0,0.0:. 0,3.75^1, 0,6.5:. 3„ 75. 8:. 7.5.7.5 

346 DATA ©:• 6. 5, 1 1 . 25. 0.3.5:. 14. 0.0.15. 0. -3.75.14 

347 DATA 0.-6.5.11.25. 0.-7*5.7.5. 0.-6.5.3.75.0.-3.75.1 

348 DATA 60 .0.0 . 60 . 3.75.1. 60 .6.5.3.75.68.7.5.7. 5 
349 " DATA 68 :. 6 . 5 :. 1 1 . 25 . 68 . 3 . 75 . 1 4 . 60 . . 1 5 . 68 . --3 . 75 . 1 4 

350 DATA 60 . -6 . 5 . 11.25. 60 . -7 .5.7.5. 60 . --6 .5.3. 75 . 68 . -3 . 75 . 1 

35 1 DATA . . 1 5 . . -3 . 75 . 1 4 . 8 . --6 „ 5 .11. 25 .0.-7.5. 7 . 5 

352 DATA 68 . . 1 5 . 68 . -3 . 75 . 1 4 . 68 . -6 . 5 . 11.25. 68 . -7 . 5 . 7 „ 5 

353 DATA 8.8. 15.8.3.75. 14. ©.6. 5. 11.25.8.7.5.7.5 

354 DA T A 60 .8.15. 68 . 3 . 75 . 1 . 68 :. 6 .5.11. 25 . 68 . 7 „ 5 . 7 . 5 

355 DATA 62 . 8 . 15 . 77 . 8 . 45 .87.8. '42 . 5 . 82 . 8 . 28 

356 DATA 77.8.15.77.0.28.85.8.48.5.86.8.48.5 

357 DATA 8 . -7 .5.8.31. 14.5.8. 39 . 1 7 . 8 . 68 . -37 . 8 . 66 . -40 . 8 

358 DATA 76 42 :. 8 :. 79 „ 5 :■ -28 .8.93. - 1 3 . 8 . 93 . -9 . 8 . 93 9 . 8 

359 DATA i33 .13.8. 79 . 5 . 28 . 8 . 76 . 42 . . 66 . 40 . . 60 . 37 . 

360 DATA 39 . 1 7 . . 3 1 . 1 4 . 5 . . . 7 . 5 . . 4 1 . 5 15.0. 63 . - 38 . 8 

36 1 DATA 69 :■ -48 . 8 . 72 . -4 1.8.74 . -28 .0.77.-13.0.71 . - 1 3 . 

362 DATA 41.5. 15.0. 63 :■ 33 . . 69 . 40 . . 72 .41.0. 74 . 28 . 

363 DATA 77.13.0. 71.13.0. 30.7.5.7.5 
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364 DATA -28 & -.• 4 -24 Q :. 8 -.■ - 24 . -2 .7.5:. -24 -3 . 5 6 --24 . -4 4 

365 DATA -24 . -3 „ 5 . 2 -24 2 . , 5 -24 .0.0 -24 . 2 . „ 5 . - 24 .3.5.2 

366 DATA -~24 . 4 . 4 . ~24 . 3 . 5 . 6 . -24 . 2 . 7 . 5 . -6 . 5 . -6 . 1 '-I- , 5 

367 DATA -9. -6. 14, 5. -10. -~3. 14. 5. ~9. -3. 15. -9. 3. 15 

368 DATA -19.3. 14.5.-9.6. 14.5.-6,5.6. 14.5.-6.5.7.5. 13 

369 DATA -10.7.5. 12.-11.5.3,5. 13.-12.5. 1. 13.-10. 1,5. 14.5 

370 DATA -12.5.-1.13.-10.-1,5.14,5.-11,5.-3.5.13 

371 DATA -10.-7,5.12.-6,5.-7.5.13 
380 FOR J=l TO I A 

390 READ ICJ;;- 
400 HEKT J 

405 DATA 1.2.3.4.5.6.7.8.9. 10. 11. 12. 1.0. 13. 14. 15. 16. 17. IS 
410 DATA 19.20.21.22.23.24.13.0.25.26.27.28.32.31.30.29.25 
415 DATA . 33 . 34 . 35 . 36 . 40 . 39 .38.37. 33 

417 DATA .41. 42 . 43 . 44 . 45 .41.0. 44 .46.47. 48 . © 

4 1 8 DATA 49 .50.51.52.53 . 54 . 55 . 56 .57.58. 59 . 60 .61. 62 . 63 

4 1 9 DATA 64 . 65 . 66 . . 50 . 67 . 68 . 69 .70.54 . O . 69 .73.72. 56 

420 DATA 0.71.55 . . 65 . 74 . 75 . 76 . 77 . 6 1 . . 76 . 80 . 79 . 59 . . 78 . 60 . 

42 1 DATA 83 . 84 . 85 . 86 . 87 . 88 . 89 . 90 .91.92. 93 . 94 . 83 . 82 . 84 . 

422 DATA 85 . 82 . 86 . . 87 . 82 . 88 . . 89 . 82 . 90 . . 9 1 . 82 . 92 . O 

423 DATA 93 . 82 . 94 . . 95 . 96 . 97 . 98 . 99 . 1 00 .101.1 02 . 1 03 .104.1 05 

424 DATA 1 06 . 1 08 .110.111.112 . 95 .0.1 1 . 1 ©4 .0.1 06 .107.1 00 

425 DATA 105.0.96.111.0.108.109.97.110.0 

426 DATA 77 . 78 . 79 .0.70.71.72.0 

429 R 1 > =>< < 8 1 > s R ■:; 2 > =V < 8 1 > : R < 3 > =Z < 8 1 > 

430 K >: ::■ =20 ' W < O > =-200 s Z -C O > = 1 5 

440 F=0, lsG=lsREI1 F- IS DISTORTION AND Q IS MAGNIFICATION 

450 8=1 sT= IPs REM START AND FINISH POINTS TO ROTATE 

470 l.J=63sU=29!REM W IS WIDTH AND U IS HEIGI-iT 

475 DIM UAdJ. W>sREM DIMENSION UIDEO ARRAV 

480 DIM SA(30.60>sREM ARRAV FOR SCREEN DUMP 

490 RETURN 

500 REM BLANK GRAPHICS 

510 PRINT CHR*< 12;' ; s REM BLANK SCREEN 
520 FOR J=-3968 TO -2049 
530 POKE J. 192 
540 NEXT J 
550 RETURN 

600 i^:em rotate points about axis 

610 IF B*=":K" then GOSUB 1700 
620 IF B*="V" then GOSUB ISO© 
630 IF B*="Z" THEN GOSUB 1900 
640 RETURN 

650 P 1 =A 1 -A2 s P2=A3~A4 
660 L=SQR < P 1 *P 1 •+-P2*P2 > 

670 IF P2=0 THEN A5=0-<P1<0>*3„ 141593 
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680 IF P1=0 THEN A5=SQH<P2>*1 . 579796 

690 I F P2< >0 AND P 1 < >Q THEN A5=i-iTN < P2. - P 1 > - < P 1< 9 > *:3 .141 593 
700 A5=A54 Es RETURN 

800 REM TRANSLATE K.V.Z TO H.U 

810 FOR J=l TO IP 

820 DV=V'; J::'-V<0>s IF DVOO THEN PRINT "DECREASE V<0;:'"sSTOP 

830 d:k=:k< j> -x<0> 

840 DZ=Z'; J> -Z<0> 

850 U':; J>=ATN<F*D2.-1;:'V> !! REM UERTICAL, SCREEN POSITION 

860 H'::J>=ATN'::F-*DX--DV>!!REM HORIZONTAL SCREEN POSITION 

870 HE>a J 

880 ri I HU=U ■:; 1 ;:■ s MAXU=U •:; 1 > 

890 M I NH=H •:: 1 .:■ 5 MAXH=H C 1 ::• 

900 FOR 1=1 TO IP 

910 IF "...I'MXrilNU THEN MINU=U<J::' 

920 IF MCJ::'>MAKU THEN MAKU=U < J > 

930 IF HCJXrilNH THEN MINH=H'::J> 

940 IF H';j::'>MA;KH then MA;KH=Ht:j::' 

950 ne:kt J 

960 DH=MAKH~MINH 

970 DU=MA:KU-r'1INU 

980 FOR J=l TO IP 

990 H<J> =G* < H < J > -M I NH > .''DH*M 

1 000 u <: J ::• =G* <: u •;; j > -m i hu > •• du*u 

1110 NEXT J 

1120 RETURN 

1200 REM DRAW LINES CONNECTING POINTS 

1210 FOR J=l TO lA-l 

1220 IF I':.J>=0 OR I CJ+l ;:.=iZi THEN 1340 

1230 HH=H(I<J+i:;. >-H'a':;j::'> 

1 240 U>.-'=i...' I •:; J+ 1 > > -U ■:: I J ;;■ > 

1250 SN=SGN<HH> 

1260 IF SN=0 THEN 1360 

1270 M=UU.-HH 

1 280 E=U < I< J > > -M*H < I < J > > 

1 290 SP=SQR <■:. UU*Ui...i+HH*HH > 

1300 FOR l<=H':; I < J> > TO H< I 'C J+l > > STEP 0„3*HH -SP 

1310 P=M*I<+B 

1320 GOSUB 1500 

1330 NEXT l< 

1340 NEKT J 

1350 RETURN 

1360 REM SLOPE EQUALS INFINITV 

1370 l<=H':: KJ) > 

138© IF SGN'::i...'U>=0 THEN P=H I < J > > s GOSUB 1500s GOTO 1340 

1 390 FOR P-Kt <I< J > > TO U < I < J+ 1 > > STEP SGN < K"J > .-'5 
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1400 eOSUB 1500 
1410 HEXT P 
1420 GOTO 1340 

1500 REM PLOTTING SUBOUTINE 

1510 IF P>IJ OR P<0 OR lOUi OR l<<0 THEN RETURN 

1 520 Q== I NT < K > -2 1 1 2- 64* I NT ( P 

1530 IF Q) -2049 OR Q< --396S THEN PRINT "OFFSCREEN" s STOP 

1540 C1-1924 2--.:;2*'::2-INT<3*<:P INTc:P> > > > ■i-INTt:2*<l<- INT'::i<> > > 

1550 POKE Q:. c:PEEI<'::Q> OR Cl> 

1555 IF J<25 OR J>40 THEN UACP. 1<> = <PEEI<<Q> OR Cl> 
1560 RETURN 

1600 REM ROTATION. TRANSLATE. BLANK SCREEN GRAPHICS. DRAW LINES 
1610 GOSUB 600SGOSUB 880: IF ID=0 THEN GOSUB 580 
1620 IF ID:=0 THEN GOSUB 1280: GOSUB 5080 
1630 RETURN 

1788 REM ^^--AKIS ROTATION 

1718 FOR J==3 TO T 

1 728 A 1 = V < J > : A2=R < 2 > ' A3=Z ( J > ; A4=R < 3 
1738 GOSUB 650 

1 740 V ■:: J > =L*COS C A5 > +R < 2 ::■ s 2 C J > =L*S I N < A5 > +R < 3 > 
1750 NEJ<:T J s RETURN 

1800 REM V-AKIS ROTATION 

1810 FOR J=S TO T 

1 828 A 1 =K < J > : A2=R ■:: 1 > 5 A3=Z •:; J > : A4=R ( 3 > 
1838 GOSUB 650 

1 848 X ■:: J > =L*COS ■:; A5 > +R < 1 > ! Z < J > =L*S I N C A5 > +R < 3 > 
1858 NEXT J s RETURN 

1988 REM Z-AXIS ROTATION 

1918 FOR .J=S TO r 

1 928 A 1 =:K < J > 5 A2=R < 1 ::• s A3=V < J > ' A4=R < 2 > 
1938 GOSUB 658 

1 948 X •:; J > =L*COS •:: A5 > ■+ R < 1 > s S' C J > =L*S I N < A5 > +R < 2 > 
1958 NEXT J s RETURN 

2000 REM INSTRUCTIONS 

2010 PRINT CHR*'::i2>; sREM CLEAR SCREEN CSOME CAN USE CLS>. 
2020 PR I NT SPRINT 

2030 PR I NT " COMMAND " .- " DESCI":! I PT I ON " . . " EXAMPLE " 

2848 PRINT "- "." — - ".." - " 

2845 PRINT 

2850 PRINT "A NN"."ROLL THE SPACECRAFT" . "A 1.2" 
2060 PRINT "B NH" . "VAI...I THE SPACECRAFT" "B -1.8" 
2070 PRINT "C NN". "PITCH THE SPACECRAFT" . "C 0.22" 
2075 PRINT 

2030 PRINT "D NH"."MOUE CRAFT FORWARD OR BACK"."D 23" 
2898 PRINT "E NN"."MOUE SPACECRAFT SIDEWAVS" . "E -12" 
2188 PRINT "F NN" . "MOUE- CRAFT UP OR DOWN"."F 19" 
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2105 
2110 
2120 
2125 
2130 
2140 

3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 

4000 

4005 

4010 

4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 

5000 
5010 

5020 

5100 

5110 
5120 
5200 
5210 
5220 
5300 
5310 
5320 
5400 
5410 
5415 
5420 
5425 
5430 
5440 



INTERPRET COMMf^HDS 



PRINT 

PRINT "G NN" .- "MOUE PORT CARGO BAV DOOR'S "G 1,3" 
PRINT "H HN'S "MOUE STARBOARD BAV DOOR".-"H 0„2" 
PRINTS PRINT 

PRINT: PRINT "ALL MOTIONS ARE FROM VOUR POINT OF 
RETURN 

REM DEFINE BLOCK GRAPHICS 

FOR J=-512 TO -is POKE J.0SNEKT J 
FOR J=l TO 63s H=J*8-512 

FOR 1 = 1 TO 6; M=2---':: I-l 5 IF CJ AND M>=0 THEN 3089 
Nl =N-- < I )-2 > :+:3- < I >4 > *2 
N2=N+2-':: I >2>*2~';: I >4:;'*3 
N3=240+ <: I NT •:; I .••-2 > = I --'2 > *225 

FOR P=N1 TO N2 SPOKE P, CREEK 'CP) OR N3>;NE:KT P 
NEXT I. -J 
RETURN 
REM 

S=l s T=IP 
IF M1*="A" 
M1*="B" 
M1*="C" 
M1*="D" 
Ml :t:="P " 
M1*="F" 
M1*="G" 
M1*="H" 
RETURN 

REM RECORD MANIPULATIONS 
PTR=PTRH- 1 ' SN ■:: PTR > =E s STL < PTR > = ASC < M 1 * ::• 
RETURN 

IN THE X DIRECTION 
T s K ■:; J > =X < J > +E s NEKT J 
RETURN 

IN THE V DIRECTION 
T 5 V •:: J :;. = V < J + E s NEKT J 
RETURN 

IN THE Z DIRECTION 
TsZt:J>=Z<J>+EsNEXT J 
5900 s RETURN 
MOUE CARGO BAV 



UI 



IF 
IF 
IF 
TF 
IF 
IF 
IF 



THEN 
THEN 
THEN 
THEN 
THI-N 
THEN 
THEN 
THEN 



B$:="V" s GOSUB 
B$="Z" s GOSUB 
B:$="X" s GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 



1600s GOTO 
1600S GOTO 
1600 s GOTO 
5 180 s GOTO 4090 
5200 s GOTO 
5300 s goto 
5500 ' GOTO 
5400 



4090 
4090 
4090 



4090 
4090 
4090 



REM MOUE 
FOR J=S TO 
GOSUB 50005 
REM MOUE 
FOR ..T=S TO 
GOSUB 5000 s 
REM MOUE 
FOR J=S TO 
GOSUB 
REM 



DOORS 



S=33 : T:=40 = B*= " K " s R •:: 1 > -SX < 36 > : R < 2 > =SV < 36 > 

R<3>=SZ<36> s REM FOR STARBOARD BAV DOORS 

FOR J==S TO T 3 X < J > =S;^^ >■:. J ::■ a V < J > =S V < J > s Z •:: J > =SZ < J > 

NEXT J s GOSUB 600 s R < 1 > =X < 8 1 > s R ■:: 2 ::• = V •:: 8 1 ^ s R <: 3 > =Z C 8 1 > 

ID=lsFOR K=l TO PTR 

M 1 *=C!-iR$ STL. < \< > ;:- s E==SN C K > 
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5450 GOSUB 4010SHEXT KK: ID=0 

5460 GOSUB 800 s GOSUB 500! GOSUB 1280! RETURN 

55 1. S=25 : T==32 5 B*= "K"'.R<t> =SX < 28 > : R < 2 > «SV <28> 

5520 R < 3 > =S2 < 28 > = GOSUB 5428 s RETURN 

5520 GOSUB 542011 RETURN 

6000 REM OPTIONAL SCREEN DUMP TO PRINTER 

6010 FOR J==l. TO 30 5 FOR I<=1 TO 60 

6020 Srt J r l< > :=PEEI< 64* •:: J - 1 > + K--3969 > s NEXT l< , J 

6030 N 1 =3*2-- 1 NT < 6*RND < 1 > > 

6040 POKE 260. SPOKE 261 .0s POKE 0,62! POKE 1.27 

6050 POKE 2 . 205 s POKE 3 . 1 2 : F'OKE 4 . 224 s POKE 5 . 20 1 

6060 J-:;K==USI?: < > s F'OKE 1 . 65 s XK-USR < > s POKE! 1 . 2 s Kr^=USR < O > 

6070 FOR J^=l TO 305 FOR L=-8 TO -1 

60S0 FOR K==0 TO 59 s IF K-- 15=O.NTa<.-15> THEN GOSUB 6120 

6090 CN-PEEK';:L-S*'::255-Si-i'::J.K+1>>>;F0R M^^=7 to STEP -1 

6 1 00 POKE 1 . 1 *SGN < ON AND 2 • M > s ;:^;^^;==USR > s NEXT M . K 

6 1 1 POKE 1,138 XX=USR (. > s NEXT L > J " POKE 1.12s XX==USR < > s RETURN 

6 1 20 POKE 1 . 27 s XX=USR: < 8 > s POKE 1 . 75 s :^^X=USR C O > 

6 1 30 POKE 1 . 1 28 s XX=USR < 8 ::• 8 POKE 1 . 8 s XX=USR < 8 > 8 RETURN 

READS' 



We now look at the lines of the program. Lines 
10-35 give the remarks about the program. Line 40 
clears the video screen. Line 41 prints three blank 
lines and lines 42-44 print out the name of the 
program on the screen. Line 45 prints three more 
blank lines, and then line 46 asks whetlier or not 
you vi^ant to see the instructions for tlie program. If 
the answer is yes, line 47 sends program control to 
the subroutine at line 2000. After three more print 
statements in line 48, the computer tells us that it is 
setting up the program (line 49). Line 50 is a sub- 
routine call to line 3000, which defines the block- 
type graphics. Delete this line if your computer 
uses the set or reset commands, if it cannot define 
graphic characters, or if it doesn't conform for any 
reason. Line 60 is a subroutine call to line 300, 
which reads the coordinates of the data points and 
the lines that connect them, dimensions the arrays, 
and sets variables. Line 65 contains the subroutine 
calls that display the first figure. Line 70 requests 
you to enter the command to manipulate tlie com- 
puter model. Line 75 breaks the reply up into the 
alphabetic and numerical portions and assigns them 
to Ml$ and E, respectively. Line 80 is a subroutine 
call to line 4000, which interprets the commands. 



Line 90 is an optional line, which should be used 
only when you want a hard copy of the figures on the 
screen. It is a call to a subroutine that sends the 
image to the printer. Line 100 goes to line 70, 
where the next command is requested. 

Lines 300-490 contain the statements that ini- 
tialize the program. Line 300 is the remark state- 
ment for the heading. Line 305 says that IP, the 
number of points, is 112 and lA, the number of line 
connections, is 187. PTR is the index of a stack 
that we are going to use when operating the cargo 
bay doors. ID is a variable that indicates the level of 
subroutine calls, also for the cargo bay door opera- 
tion. Line 310 dimensions the line connection ar- 
ray, I, theX, Y, and Z-coordinate arrays, andR, V, 
and H. Line 315 dimensions an array for a stack of 
command letters, and line 316 dimensions the ar- 
rays that contain the coordinates of the points at the 
start of the program, for use with the door manipu- 
lations. Line 318 contains the array for the stack of 
numbers also used for the doors. The loop in lines 
320-340 reads in the data for the coordinates at the 
start of the program. 

Lines 345-371 contain data statements for the 
X, Y, and Z coordinate of each point. Lines 380-400 
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Fig. 4-2. Perspective line drawing of house (three views). 
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read in the connection array from the data state- 
ments in Unes 405-426. Line 429 sets the points 
about which the craft will rotate. For all three axis 
tlie coordinate of tlie point is 81. Line 430 sets the 
viewpoint's coordinates, and line 440 sets F and G. 
Line 450 sets the values of S and T, the first and the 
last points that we want to rotate. Line 470 sets the 
width and height of the video screen, minus 1. You 
may change this for your computer. If your com- 
puter uses set and reset, you may want to use 127 
and 47. Line 480 dimensions an array for a screen 
dump. Line 490 returns control back to line 65. 

The subroutine in lines 500-550 blanks the 
screen dump. Line 490 returns control back to line 
65. 

The subroutine in lines 500-550 blanks the 
screen. Another method of blanking tlie screen is to 
use a loop that resets J and K. Where J is the loop 
from to U and K is a nested loop from to W. 
Other computers may require a different technique. 

The subroutine in lines 600-700, which uses 
subroutines at lines 1700, 1800, and 1900, rotates 
points about an axis in exactly tlie same way as the 
rotation subroutines that we saw earlier did. How 
ever, this subroutine is faster. Lines 800- 1120 form 
a subroutine that translates the points into vertical 
and horizontal positions for use on the screen. It is 



the same as ones that we've seen before. Lines 
1200-1420 contain tlie familiar subroutine that 
draws lines connecting points. Lines 1500-1560 are 
a plotting subroutine that is rather system-specific. 
If your computer uses set, you might change lines 
1520-1555 to SET(K,P). This command turns on a 
screen element on some systems. 

Lines 1700-1750 are part of the rotation sub- 
routine that rotates points around the X-axis. Lines 
1800-1850 are part of the subroutine that rotates 
points around the Y-axis, and lines 1900-1950 ro- 
tate points about the Z-axis. Lines 2000-2140 form 
the subroutine that prints the instructions. The first 
six commands move the spacecraft using our refer- 
ence system. If we type A 1.5, tlie model turns 
about 90 degrees counterclockwise on the screen. 
Lines 3000-3090 form a subroutine that defines 
user-defined graphic characters. It may not work on 
your system, or you may not need them as we 
stated earlier. I won't explain how these state- 
ments are defined, except to say that they create 
graphic characters that are a 3 x2 rectangular block 
of squares. 

The commands for the program are interpret- 
ted by the subroutine in lines 4000-5520. Lines 
4010-4080 transfer control to appropriate sub- 
routine for the letter entered. Lines 5000-5020 
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Fig. 4-5. High-resolution plots of a space shuttle model. 



68 



record the commands if they are the motion of the 
entire craft, i.e., letters A-F. Lines 5100-5120 are 
for motion in the X-direction; 5200-5220 are for 
motion in the Y-direction; 5300-5320 are for motion 
in the Z-direction. The number entered is simply 
added to each points' coordinates in whatever di- 
mension it is moved. 

Lines 5400-5520 are statements for the opera- 
tion of the cargo bay doors. A positive number will 
cause the doors to open and a negative number will 
cause them to close. These numbers should not 
have values outside of tfie range of - 1.6 to 1.6 or 
the doors wdll appear to pass through tlie wings. We 
should also note that you should not use large num- 
bers when moving the spacecraft as the points could 
shift off the screen, out of the field of vision and you 
would be lost. 

When a command is received to operate the 
starboard bay door, tlie program will run through 
lines 5400-5460. With the port door, lines 5500- 
5520 are called. They in turn also call lines 5420- 
5460 of the starboard call. This is simply a space- 
saving technique since the routine is the same; only 
the points involved and the p oints of rotation are 
different. In line 5410 S is set to 33 and T is set to 
40. These are the first and last points of the star- 
board bay door. Rotation is about the X-axis since 
that is the axis they rotate about at the start of the 
program. Point 36 is the point of one of the hinges of 
the door and we use that point for the axis of rota- 



tion. On the starboard door, we set E equal to 
negative E since a positive number opens the door. 
Line 5420 defines the points of the door as their 
original values at the start. Line 5425 performs the 
opening rotation on the door and sets the point of 
rotation back to the original 81. Lines 5430-5460 is 
a stack reading loop that manipulates the points 
tlirough all tlie commands that the computer has 
received up to this point. This is the method of 
putting the doors back on the model. 

What we actually accomplish with this sub- 
routine is to rotate the cargo bay doors about an 
arbitrary axis. We rotated tlie doors about their 
original axis, the X-axis, then went through the 
stack of all the manipulations to move the points of 
the doors back to where they should now be relative 
to the rest of the model. 

Lines 6000-6130 are the subroutine for the 
optional screen dump to printer. We will not dis- 
cuss it here as we have already covered it in other 
programs. 

A High-Resolution 

Perspective Line Program— Program 1 1 

This program is the same, in many respects, 
as the low-resolution version. However, the 
images created by this version are meant to be 
printed on paper. No pictures appear on the video 
display. The program draws a much finer line when 
printing the pictures. 



10 REM HII3H--RES0LUTI0H SPACE SHUTTLE SIMULATION 

20 REM WRITTEN BV TIMOTHV J. O'MALLEV 

30 REM COP'v'RIGHT 1982. TAB BOOKS INC. 

35 REM 

40 PRINT CHR*'::i2>.? 

41 PR I NT 5 PR I NT SPRINT 

42 PRINT TAB-;; 15::- 5 "INTERACT I UE SPACE SHUTTLE SIMULATION" 

43 PRINT T ABC IS > 5 "WRITTEN BS' T I MOTHS' J. O'MALLEV" 

44 PRINT TABCIS;:-- "COP'v'RIGHT 1982.- TAB BOOKS INC." 

45 PR I NT s PR I NT s PR I NT 

46 INPUT "DO 't'OU WANT INSTRUCTIONS ci'v'ES OR NO ::•"!! AN* 

47 IF AN*="'r'ES" THEN GOSUB 200vZi 

48 PR I NT 5 PR I NT s PR I NT 

49 PRINT "THE COMPUTER WILL NOW SET UP THE PROGRAM. " 
60 GOSUB 300! REM INITIALIZE UARIABLES 
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S5 Q03UB 500:QOSUB 800SGOSUB 1200s GOSUB 60805 REM DISPLAY START 
70 INPUT "COMMAND" 3 CM* 

75 M 1 *-LEFT* •:; CM* . 1 > ' E=U AL < R I GHT* < CM* . •:: LEN < CM* --2 > > > 
80 GOSUB 4000 s REM INTERPRET COMMANDS 
90 GOSUB 6000 s REM PRINT OUT IN HIGH RESOLUTION 
100 GOTO 70 

300 REM INITIALIZE UARIABLES 

305 I P= 11 2 s I A= 1 87 : PTR=0 « I D=0 

310 DIM I < I A> . K<Ip-f. VC IP> . Z< IP> . R';:3> . U-:; IP> . H< IP> 

315 DIM STL'::50> 

3 16 D I M SX < I P y :. SV < I P , SZ < I P y 
318 DIM SN-rSO;:' 

320 FOR J=l TO IP 

330 READ x<jy.v<jy.z<jy 

335 sx < J > =K < J > s SV < J y = V < J > • sz < J y =z j > 

340 HEKJ J 

345 DATA O.O.O. 0.3„75:. 1. O. 6. 5. 3. 75. 0.7.5.7„5 

346 DATA O. 6. 5. 1 1 . 25. O. 3.5.14. 0.0.15. 0.-3.75.14 

347 DATA 0.-6.5.11.25. 0.-7.5.7.5. 0.-6.5.3.75.0.-3,75.1 

348 DATA 60.0.0. 60.3.75.1.60.6.5.3.75.68.7.5.7.5 

349 DATA 6© .6.5. 11.25. 60 .3.75. 14. 60 .0.15.60.-3.75.14 

350 DATA 6i3 . -6 . 5 . 11. 25 . 60 .-7.5.7.5. 60 . -6 . 5 . 3 . 75 . 68 . -3 . 75 . 1 

351 DATA 0.0. 15.0.-3.75. 14.8.-6=5. 11=25.8.-7=5.7=5 

352 DATA 6© .8.15. 60 . -3 ,.75.14.60.-6.5.11.25.60. -7 .5.7.5 

353 DATA 0.0. 15.8.3.75. 14.8.6.5. 11,25.8.7.5.7.5 

354 DATA 68. 8. 15. 68. 3. 75. 14. 68. 6. 5.11. 25. 68. 7. 5. 7.5 

355 DATA 62 . 8 . 15.77.8. 45 .87.8. 42 , 5 . 82 . 8 . 28 

356 DATA 77.8.15.77.8.20.85.0.48.5.86.0.48.5 

357 DATA 8 . -7 .5.0.31.-14,5. 8 . 39 . ■- 1 7 . 8 . 68 . -37 . 8 . 66 . -48 . 

358 DATA 76 . -42 . . 79 , 5 . -28 . 8 . 83 .-13.8. 93 . -9 . 8 . 93 .9.8 

359 DATA 83 .13.8.79,5. 28 . 8 . 76 .42.0. 66 . 48 . 8 . 68 . 37 . 8 
368 DATA 39 .17.8.31 . 1 4 „ !5 . 8 . 8 . 7 , 5 . 8 . 4 1 . 5 . - 15.8.63. -38 . 8 

36 1 DATA 69 . -40 . 8 . 72 . -4 1 . 8 . 74 . -28 . 8 . 77 . - 13.8.71. - 13.8 

362 DATA 41,5. 15.8. 63 . 38 . 8 . 69 . 40 . 8 . 72 . 4 1.8.74 . 28 . 8 

363 DATA 77 . 1 3 . 8 . 7 1 . 1 3 . 8 . 38 . 7 . 5 . 7 , 5 

364 DATA -28 . 8 . 4 . -24 . 8 . 8 . -24 . -2 .7.5. -24 . -3 .5.6. -24 . -4 . 4 

365 DATA -24. -3. 5. 2. -24. -2. . 5. -24. 8. O. -24. 2. . 5. -24. 3. 5. 2 

366 DATA -24.4.4.-24.3.5.6. -24.2.7,5.-6.5.-6.14,5 
3S7 DAT;-; -9 .. -£ .. 1 4 . 5 1 S 3 .. 1 , 5 .. -9 3 1 5 . --^9 .3.15 

368 DATA -18.3. 14,5.-9.6. 14.5.-6.5.6. 14.5.-6,5.7.5. 13 

369 DATA -10.7,5.12.-11.5.3.5.13.-12.5.1.13.-10.1,5.14,5 

370 DATA -12,5.-1.13.-10.-1.5.14.5.-11,5.-3,5.13 

371 DATA -10.-7.5.12.-6.5.-7,5.13 
380 FOR J=l TO I A 

390 READ lc:j> 

400 NEXT J 
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405 DATA 1.2, 3. 4. 5, 6. 7. 8. 9. 19. 11, 12. 1.©, 13, 14, 15, 16, 17, IS 
4 1 DATA 1 9 , 20 ,21,22,23,24,13, 9 , 25 , 26 , 27 , 28 ,32,31, 30 , 29 , 25 
415 DATA , 33 , 34 , 35 , 36 , 49 , 39 , 38 , 37 , 33 

417 DATA 0,41 , 42 , 43 ,44,45, 4 1,0, 44 , 46 , 47 , 48 , 

4 1 8 DATA 49 , 50 , 5 1 , 52 , 53 , 54 , 55 , 56 , 57 , 58 , 59 , 60 ,61, 62 , 63 

419 DATA 64,65, 66 , , 50 , 67 , 68 ,69,70,54, , 69 ,73,72,56 

420 DATA ,71, 55 , , 65 , 74 , 75 , 76 , 77 ,61, , 76 , 80 , 79 , 59 , , 78 , 60 , 

42 1 DATA 83,84,85, 86 , 87 , 88 , 89 , 90 , 9 1 , 92 , 93 , 94 , S3 , 82 ,84,0 

422 DATA 35 , 82 , 86 , , 87 , 82 ,88,0,89, 82 ,90,0,91,82,92,0 

423 DATA 93 , 82 , 94 , , 95 , 96 , 97 , 98 , 99 ,100,101,1 02 , 1 03 ,104,1 05 

424 DATA 1 06 , 1 08 ,110,111,112,95,0,101,1 04 , , 1 06 , 107,1 00 

425 DATA 1 05 , , 96 ,111, , 1 08 , 1 09 , 97 , 1 1 , 

426 DATA 77,78,79,0,70,71,72,0 

429 R < 1 > =;=^ ■:: 8 1 > 5 R 2 > V 8 1 ) s R < 3 > ^=Z < 8 1 > 

430 K > =20 s S" ■;: > =~200 s Z < > 1 5 

440 F=0„ 1 s 13=1 5REM F IS DISTORTION AND G IS riAGHIFICATION 
450 S=lsT=lPsREM START AND FINISH POINTS TO ROTATE 
470 W=253 s U= 1 7 s W2= 1 27 

475 DIN UAc:U, l...l> s REN DINENSION UIDEO ARRAY 
490 RETURN 

500 REM BLANK ARRAV 

510 PRINT CHR$':: 12::' ; n REN BLANK SCREEN 

520 FOR JS=0 TO IJsFOR KS=0 TO I J 

530 OA':; JS, KS>=0 

540 NEXT KS,JS 

550 RETURN 

600 REM ROTATE POINTS ABOUT AXIS 

610 IF B*="X" THEN GOSUB 1700 
620 IF B*="V" THEN GOSUB 1800 
630 IF Bs!;="Z" THEN GOSUB 1900 
640 RETURN 

650 P1=A1-A2s P2==A3-A4 
660 L=SQR •:: P 1 *P 1 +P2*P2 > 

670 IF P2=0 THEN A5=0-<P1<0::'*3.. 141593 
680 IF P1=0 THEN A5=SGN'::P2>*1 . 570796 

690 IF P2O0 AND PlOO THEN A5=ATH'::P2--P1 >-'::Pl<0>*3. 141593 
700 A5=A5+Es RETURN 

800 REM TRANSLATE K,V,Z TO H,U 

810 FOR J=l TO IP 

820 D'-/=V<J>-V<0>5 IF DV<=0 THEN PRINT "DECREASE VCO;' " s STOP 
830 DX=X< J>--K(:0> 

840 DZ=z< j>--z<0;;' 

850 U< J>=ATN'::F*DZ-- DV> s REN UERTICAL SCREEN POSITION 
860 HC.T>=ATN<F*DX.'-DV::'!REM HORIZONTAL SCREEN POSITION 
870 NEXT J 

880 M I NU=U < 1 > s M AXU=U •:: 1 ::■ 
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890 M I HH=H < 1 > 5 MftXH=H 1 > 

900 FOR .J=l TO IP 

910 IF UCJXMIHU THEN MINU=U'::J> 

920 IF U'::j>>maku THEN ma::-::u=U'::.j:j 

930 IF HCJXMIHH THEN riINH=H>::J> 

940 IF H':j>>makh then makh=h>::.j> 

950 HEKT J 

960 DH=MAXH-MIHH 

970 DU=MAXl'-MINU 

980 FOR J=l TO IP 

990 H < J > =G* < H •:: J > -M I HH > .• DH*!...! 

1 000 u < J > =G* < u J :;■ - m i hu > .■■•■du*u 

1110 HEKT J 
1120 RETURN 

1200 REM DRAW LINES CONNECTING POINTS 

1210 FOR J=l TO IA-1 

1220 IF I'::.J>=0 OR I 'Mh-I ::'=0 THEN 1340 

1 230 HH=H < I <: J+ 1 ;:. > -H < I < J > > 

1 240 UU=i...' < I < J+ 1 > > -U < I ■:: J > > 

1250 SN=SGN<HH> 

126.0 IF SN=0 THEN 136© 

1270 M=UU.-HH 

1 280 B=U < I < J > > -M*H < I J > > 
1 290 SP=SQR < UU*UU+HH*HH > 

1300 FOR K=H'::i<J>> TO H-:: I CJ+l > > STEP 0,3*HH.-SP 

1310 P=ri*KH-B 

1320 GOSUB 1500 

1330 NEKT l< 

1340 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INFINITY 

1370 I<=H<I(.J::'> 

1 380 I F SGN ■:: UU > =0 THEN P=H < I >: J > > s GOSUB 1 500 s GOTO 1 340 
1390 FOR P==i..K I ■;: J::0 to U':;I <:J+1 >::> STEP SQN>::UU>.--12 
1400 GOSUB 1500 
1410 NEXT P 
1420 GOTO 1340 

1500 REM PLOT riNG SUBOUTINE 

1510 IF p>u OR pf:0 OR i<>i,i OP i<-:0 then return 

1 520 U 1 = I NT < P > s U2= I NT < K > 

1 530 UA < U 1 , U2 > ^=-i..!A < 'J 1 :. 02 > OR 2 - I NT <. 1 2:^^ < P - v 1 > > 
1560 RETURN 

1600 REM ROTATION. TRANSLATE. BLANK SCREEN GRAPHICS. DRAW 
LINES 

1610 GOSUB 6005 GOSUB SOO; IF ID=0 THEN GOSUB 50© 
1620 IF ID-0 THEN GOSUB 1200s GOSUB 5800 
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1630 

1700 

1710 
1720 
1730 
1740 
1750 

1300 

1810 
1820 
1830 
1840 
1850 

1900 

1-310 
1920 
1930 
1940 
1950 

2000 

2020 
2030 
2040 
2045 
2050 
2060 
2070 
2075 
2080 
2090 

2100 

2105 
21 10 
2120 
2125 
2130 
2140 

4000 

4005' 

4010 

4020 
4030 
4040 
4050 
4060 
4070 



X AKIS ROTATION 



F?ETURH 
REM 

FOR J=S TO T 

A 1 =V < J > : A2=R C 2 > : A3~Z < J > M~R < 3 > 
GOSUB 650 

V C J ;:■ =L*COS < A5 > +R < 2 > : Z CJ > =L*S I N < A5 > +R C 3 > 
HEKT J : RETURN 

REM V-AKIS ROTATION 

FOR J=S TO T 

A 1 =x c: J ;;■ 5 a2=r a > s a3=z <: j > s a4=r < 3 > 

GOSUB 650 

;k < J :> =L*cos < A5 > +R < 1 > 5 z < J > =L*s I N c A5 +R <; 3 > 

NEKT J s RETURN 

REM Z~AXIS ROTATION 

FOR J=S TO T 

A 1 =K ■:: J :;■ s A2=R <: 1 > 5 A3= V ■:: J > s A4=R ■:: 2 > 
GOSUB 650 

K < J > =L*COS < A5 y +R •:: 1 ::■ s V •:: J =L*S I N < A5 > +R < 2 > 
NEXT J 5 RETURN 

REM INSTRUCTIONS 
PR I NT: PR I NT 

PR I NT "COMMAND " . " DESCR I PT I OH " . " EXAMPLE " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT "Q NN" 
PRINT "H NN" 
PR I NT SPRINT 

PRINTS PRINT "ALL MOTIONS ARE FROM VOUR POINT OF UIEU. 
RETURN 

REM INTERPRET COMMANDS 

S=lsT=IP 

IF M1*=="A" THEN B*="V"3 GOSUB 1600" GOTO 4098 
IF M1*="B" THEN B*="Z"s GOSUB 1600s GOTO 4090 
IF M1*="C" THEN Et=";--:" s GOSUB 1600s GOTO 4098 
IF M1*=="D" THEN GOSUB 5 100s GOTO 4899 
IF M1*""E" THEN GOSUB 5200s GOTO 4898 
IF M1*="F" THEN GOSUB 5300s GOTO 4898 
IF M1*="G" THEN GOSUB 5588 s GOTO 4898 



'A HN"."ROLL THE SPACECRAFT" . "A 1.2" 



'B HH" 
■C NH" 

'D NN" 
'E NN" 
'F NH" 



"VAI...I THE SPACECRAFT". "B --1.8" 
"PITCH THE SPACECRAFT". "C 8„22" 

"MOUE CRAFT FORWARD OR BACI<"."D 23" 
"MOUE SPACECRAFT SIDEWAYS". "E -12" 
"MOUE CRAFT UP OR DOUIN"."F 19" 

"MOUE PORT CARGO BA'v' DOOR"."Q 1.3" 
"MOUE STARBOARD BAV DOOR"p"H 8., 2" 
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4080 IF I11*::="H" THEN GOSUB 5408 
4090 RETURI--I 

5000 REM RECORD MAN I PUL AT IONS 

50 1 PTR=PTR+ 1 s SN < PTR > =E s STL < PTR > =ASC < M 1 * > 

5020 RETURN 

5100 REM MOUE IN THE X DIRECTION 

5 1 1 FOR J"S TO T ; >< K J y -X ( J > +E s I' lEI-n" J 

5120 GOSUB 5000!! RETURN 

5200 REM MOUE IN THE DIRECTION 

5210 F OR J S T T !! 'v' < J > " 'y' J > -i- E !! N E' >■. J ^ T 

5220 GOSUB 500011 RETURN 

5300 REM MOUE IN THE Z DIRECTION 

5310 FOR J^S TO T5Z<J>=Z<J>+EiiNE;KT J 

5320 GOSUB 500011 RETURN 

5400 REM MOUE CARGO BAV DOORS 

54 1 S=33 s T=40 1; B*= " K " s R ■:: 1 > =SX < 36 > s R < 2 ::• =SV C 36 > 

5415 R'::3>=SZc;36::> 5 REM FOR STARBOARD BAV DOORS 

5420 FOR J=S TO T s X < J > =SX < J > s V ■:: J > =S V •■. J > 3 Z C J > =SZ J > 

5425 NEXT J s GOSUB 608 " R < 1 > < 8 1 > s R < 2 > ='v' < 3 1 > s R < 3 > =Z C 8 1 > 

5430 ID=l:FOR l<K=l TO PTR 

5440 M 1 *=CHR* < STL < KK > > n E==SN < KK > 

5450 GOSUB 4010s NEXT Kl<s ID=0 

5460 QOSUB 800 s GOSUB 500 s GOSUB 1200!! RETURN 

55SS REM MOUE PORT CARGO BAV DOOR 

55 1 S=25 5 T=32 5 B*= " X " s R i;' 1 > =SX < 28 > : R ( 2 > =SV C 28 > 

5528 R < 3 > =SZ < 28 > : GOSUB 5428 n RETURN 

6000 REM HIGH-RESOLUTION PRINTER 

6005 GOSUB 70001! REM SET UP SUBROUTINE FOR PRINTER 

6010 FOR JS=U TO STEP - 1 s FOR MS=11 TO 8 STEP -1 

6020 BS=INT'::2- MS> ii FOR LS=--0 TO 1 s GOSUB 6850 

6030 FOR l<S=LS*UI2 TO LS*W2+Ui2- 1 n POKE 1. SGNCBS AND UA<JS. KS::' ;:• 
6040 XX=USR > s NEXT l<:S LS s PiDKE 1.13s XX=USR < Q > s NEXT MS . JS 
6045 RETURN 

6050 POKE 1 . 27 !! XX=USR < O > n POKE 1 . 75 s XX==USR ( > s POKE 1 . W2 
6060 XX=USR O > s POKE 1 . O s ;:<X=USR < > : RETURhl 

7000 REM SET UP MACHINE LANGUAGE SUBROUTINE FOR PRINTER 

70 1 POKE 260 :. s POKE 26 1 r 8 s POKE 8 . 62 s POKE 1 27 : POKE 2 . 205 
7020 POKE 3 r 121! POKE 4 r 224- ; POKE 5 . 20 1 = XX=USR < 8 > s POKE 1 . 65 

7030 :«::«:==usR < > s poke 1,1s xx=usr < > : return 

READY 



Let's look at the lines that are different. Line 
10 indicates that this is a high-resolution program. 
We have deleted line 50, lines 3000-3090, and lines 
6070-6130, along with lines 2010, 1540-1555, and 
line 480. Lines 1520 and 1530 have been changed 



because we are using a different plotting sub- 
routine. This plotting subroutine is the same type 
as the one that we used when we drew the perspec- 
tive line drawing of the house. Line 470 was 
changed to make W=253, U=18 and W2=127. We 
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WRITTEN B 
COPVRIQHT 


_»! r1'-."i— ■-'1"'— • 1 I I— L« X I iwl— r^l 1 X '-'1 1 

r' T I MOTH'-.' J. O'MALLE'v' 
1982. TAB BOOKS IHC. 




DO '■■•'OU WANT 


IHSTRUC 


TIOHS <'-,^ES OR ho::'? 'VES 




COMMAND 


DESCRIPTIOH E? 


SAMPLE 


A HN 
B NH 
C HH 


ROLL THE SPACECRAFT A 
'v'AW THE SPACECRAFT B 
PITCH THE SPACECRAFT C 


1.2 

-1.0 

. 22 


D HH 
E HH 
F NH 


MOUE 
MOUE 
HOME 


CRAFT FORWARD OR BACK D 
SPACECRAFT SIDEWA'v'S E 
CRAFT UP OR DOWH F 


19 


G NH 
l-l HH 


MOUE 
MOUE 


PORT CARGO BA't' DOOR G 
STARBOARD BA't' DOOR H 


1.3 
. 2 


ALL MOTIONS 


ARE PRC 


ri 't'OUR POINT OF UIEW. 




THE COMPUTER 


WILL h- 


GW SET UP THE PROGRAM, 





Fig. 4-6. Display of instructions for space shuttle simulation. 



added a subroutine at lines 7000-7030 to set up the 
machine-language routine for the high-resolution 
printer. We changed the subroutine at lines 500- 
550, which blanked the graphics. Now it sets all the 
elements in the VA array to zero. We changed the 
printer subroutine, which starts at line 6000. 



Figure 4-5 shows how the model appears after 
some manipulations. Fig. 4-6 shows what the video 
display looks like if you request instructions. Both 
programs are essentially the same in their opera- 
tion. We will discuss high-resolution a little more in 
tlie next chapter, along with line elimination. 



Chapter 5 




This chapter discusses high-resohition graphics cupied by an alphanumeric character. We called it 



and the hidden line problem, and contains four 
BASIC programs which create large-scale high- 
resolution plotters and three-dimensional solid fig- 
ure plotters. 

DEFINING HIGH- AND LOW-RESOLUTION GRAPHICS 

Let's define some terms concerning resolution 
in graphics. We will consider low-resolution fig- 
ures to the figures drawn using alphanumeric 
characters as symbols. In the first histogram pro- 
gram we used the uppercase letter H as a graphic 
symbol. The images created using the lowercase 
letter o, the plus sign, and other similar symbols to 
create images are examples of low-resolution 



•Tl to distinguish it from the second 
shuttle program, which had greater resolution. 

Types of Graphic Characters 

Some computers have a predefined graphic 
character set for creating high-resolution graphic 
images. Some use a block-type of graphic set and 
the characters have ASCII codes above 127. To 
print the graphic character, you would simply de- 
termine the code number of the character that you 
want to print and enter PRINT CHR$(X), where X 
is the code number. By placing this character at the 
proper position, you can create a graphic image. 
Other computers use much the same technique 



use of symbols where more than one position of a 
point can lie vdthin the area occupied by a low- 
resolution symbol. Our low-resolution space shut- 
tle model was really a high-resolution figure since 
we used tiny squares to represent the points and 
about four of those squares equaled the area oc- 



all directions, curved lines, or special figures like 
those used in Fig. 1-1. 

Other computers allow you to define your own 
gi'aphic characters. You or your computer can make 
a user-defined graphic set, which can be very use- 
ful. The images in Fig. 5-1 were made using a 
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shuttle simulation program that defined the graphic 
characters and displayed the images on the video 
screen in high-resolution. 

Some computers skip the use of graphic 
characters completely and turn on individual screen 
bits to display graphics. The disadvantage of this 
technique is that it uses a lot of memory. The 
microcomputer industry is rapidly changing, and 
even as you are reading this book, bigger and better 
ways of displaying graphics are being invented. 

Dot matrix printers create their alphanumeric 
characters using a 7x5 dot matrix. Many comput- 
ers also show alphanumerics on the video screen 
using this method. If we could coax a computer to 
print out individual dots, we would have high- 
resolution. In fact, the high-resolution figures that 
we made of the house were made by programming a 
dot matrix printer to print in terms of the dots 
themselves, not in terms of alphanumerics. 

Some computers use an 8x8 dot matrix for 
displaying characters. Since a lot of microcomput- 
ers are 8-bit systems, each character, particularly 
the graphics characters, would consist of eight 8-bit 
numbers. 

THE HIDDEN LINE PROBLEM 

We have seen several ways to eliminate hid- 
den points. In program 3 and 4, it was done by 
erasing all the points below the current point being 
plotted. Because we used functions and were work- 
ing from left to right as the function was being 
plotted, this type of erasing was a legitimate 
method to use. 

What happens when we want to make a line 
drawing and delete the lines that do not show? The 
computer has no way of knowing that certain lines 
should not be visible. We have seen some al- 
gorithms that will eliminate hidden lines. Generally 
the}'' are niirnber-cninchers which use ?. lot of time. 
We really must find another way to represent the 



data. We can't simply use a set of coordinates and a 
list of line connections and expect the computer to 
know what we consider to be solid surfaces. 

In the molecular model program, we sorted 
the points according to decreasing distance to the 
viewpoint. We then considered that anything vnthin 
a given radius from the molecule was a surface of 
the sphere and points inside of it were to be erased. 
That was an easy solution but it could not be applied 
to other line drawings. One approach to the line 
drawing model would be to designate surfaces in- 
stead of lines. The lines could be the edges of 
surfaces. Another solution, for simple figures, 
would be to store what lines are visible from each 
point of view. As the model was manipulated, cer- 
tain lines would not be printed. That would effec- 
tively eliminate them. Later in this chapter we will 
look at another methods for eliminating hidden 
lines within three-dimensional solid figure plot- 
ters. 

LARGE-SCALE, HIGH-RESOLUTION PLOHERS 

We vAW now look 3t two nrocrams that are 
capable of plotting in high- resolution but that covers 
a larger area than the programs that we saw earlier. 
One program plots data points and functions, and 
the other one is an expanded version of the three- 
dimensional function plotter we discussed in Chap- 
ter 3. 

A Data Point Plotter in BASIC— Program 12 

Figure 5-2 is the result of rurming the program 
called High Resolution Plotter, using the function 
that is defined in line 15 of the program. This 
program can plot either (X, Y) points or a function in 
which Y is a function of X. In the figure, we labeled 
the axis and the graph as a whole. The points are 
individual points so this program not ¥/ork on 
all computers. Let's look at the program listing. 



3 rem high resolution plotter 

4 rem written bv timothv j, o'mftllev 

5 rem copyright 1982. tab books inc. 

6 rem all rights reserued. 

7 f;em 
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10 CLEAR 100 

1 5 DEF FN A C T > =S I N < LOG •:: T > > 
20 DP=100 

30 D I M X < DP , V ( DP > , Z < DP . W •:; DP > =. Q C DP > . H < DP > , M C DP > , N C DP > 
35 DIM GT<50>.AT<50>,OT'::25::' 
40 PRINT CHR*<12>; 
50 PR I NT 5 PR I NT s PR I NT 

60 PRINTTAB':;2i:;' ? " 1 1111 111 1 1" 
70 PRINTTAB'::21 > " " 1 111 1 1" 

80 PRINTTAB':;21>." "11111 1 1 111 11111" 
90 PRINTTAB'::2i::'? "1 111 11 1" 



100 


PRINTTAB<21 > 5 "1 


1 111 


111 


1 


1" 








110 


PR I NT 5 PR I NT 
















115 


PRINT TAB<3>? 
















120 


PRINT" nil 11111 


1 1 1 1 


1 1 1 


1 


1 


1 mil 111 


111"; 


130 


PRINT" 1 1" 
















135 


PRINT TAB<3>5 
















140 


PRINT" 1 1 1 


1 


1 1 


1 


1 


1 


1 1 


1 "? 


150 


PRINT" 1 11 1" 
















155 


PRINT TAE<3>5 
















160 


PRINT"1111 nil 


1 1 1 


1 1 


1 


1 


1 


1 1 


1 "3 


170 


PR I NT "1 111" 
















175 


PRINT TAB<3>; 
















180 


PRINT" 1 1 1 


1 


1 1 


J, 


1 


1 


1 1 


1 "•! 


190 


PRINT"! 1 11" 
















195 


PRINT TAB'::3>|! 
















200 


PRINT" 1 1 11111 


1 1 1 1 


1 1 1 


1 11 1 1 111 




1 111 


111"? 


210 


PRINT" 1 1" 
















220 


PR I NT SPRINT 
















230 


PRINTTAB'm;:' ? "1111 


1 


1 1 1 




1 1 11 1 11111 


1 1 1 1 1 


1 111" 


240 


PRINTTAB<li::'; "1 


1 1 


1 


1 


1 


1 


1 


1 1" 


250 


PRINTTABCn::'; "1111 


1 


1 


1 


1 


1 


nil 


nil" 


260 


PRINTTABCn::- ; "1 


1 


1 


1 


1 


1 


1 


1 1" 


270 


PRINTTAB<11>? "1 


1 1 1 


11 111 




1 


1 


1 1 1 1 1 


1 1" 


275 


GOSUB 4000 
















280 


PRINT: PRINTS PRINT 
















285 


INPUT "DO V'OLI WANT 


INSTRUCTIONS 


c:VES OR 


H0> 


" ; AN* 




286 


IF AN*="VES" THEN 


GOSUB 


3000 












287 


GOSUB 2600 
















290 


GOSUB 500 s REM 


DEFINE GRAPHING PARAMETERS 




295 


GOSUB 50005 REM SCREEN DUMP TO 


PRINTER 








300 


END 
















400 


REM SUBROUTINE '::400-4S0 


DEFINES 


1ST OR 


2ND 


UARIABLES 


410 


FOR 1=255 TO STEP -5 














420 


PRINT "ENTER ONE NUMBER 


PER LINE 


. WHEN DONE 


TVPE: 


END" 


430 


INPUT Ql$ 
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440 if q1*="ehd" then return 
450 ki=k:i + i 

460 IF Jl = l THEN K<K1 ::'=Ui-iL'::Q1$::' s ;:•:;< 0>=|<1 
470 IF J 1=2 THEN 'v''::K1 >=UAL'::Q1*::" 5 V<0>=I<1 
480 GOTO 430 

500 REM SUBROUTINE ■:: 500-600::' INPUTS GRAPHING PARAMETERS 
510 GOSUB 900 SPRINT "LIST OF GRAPHING PARAMETERS s " 
520 PRINT! FOR Jl=l TO lOsREAD Al*s PRINT AltsNEKT Jl 
530 RESTORE s PR I NT : I NPUT " WH I C H PARAMETER " 5 Q2* 
540 FOR Jl=l TO 10SREAD Al* 
550 IF A1*<>Q2* THEN 566 

555 ONJ1GOSUB400.400.700.2100.2200.2100:. 2200. 1700. 1400. 1600 
560 IF Q2*="END" THEN END 

570 NE:>^T Jls restores IF Q2*<>" INITIATE GRAPHING" THEN 50© 
575 RETURN 

5S0 DATA DEFINE 1ST UARIABLE SET .-DEFINE 2ND UARIABLE SET 
585 DATA DEFINE POINTS 

590 DATA SET DOMAIN. SET RANGE. SET IK-AKIS SCALING 

600 DATA SET V AXIS SCALING. DEFINE FUNCTION. DEFINE TITLES 

610 DATA INITIATE GRAPHING 

700 REM DEFINES (X.V;:' POINTS 

710 GOSUB 900 5 INPUT "HOW MANV POINTS"; DP 

720 PRINT "ENTER THESE" ? DP; "POINTS AS X.V (ONE PAIR PER 
LINE>" 

730 FOR J2=l TO DP s INPUT X< J2> , V<.J2> s NEXT -J 2 

740 PRINT "DONE ENTERING,, " s RETURN 

880 FOR J=l TO DPS POKE M<J> . N< J> s NEXT J s RETURN 

890 REM LINE 900 CLEARS UIDEO SCREEN C0I1PLETELS' 

900 PR I NT CHR$ < 1 2 > 5 s POKE -3968 . 32 ' RETURN 

990 REM LINES 1000-1030 FOR POINTS NOT ON SCREEN 

1 000 M J > =-3968 s N ■:; J > =32 

1010 FOR K=l TO 25 

1 020 POKE C K~-2 1 75 > . ■:: ASC ■:: l'1 1 D* '-. " SOME PO I NTS ARE 01- F GRAPH " . K . 
1 > > > 

1030 NEXT Ks RETURN 

1190 REM LINES 1200-1240 PRINT BORDER OF GRAPH 
1200 GOSUB 2500 

1210 FOR J=0 TO 255 POKE c.64*J-3966+ML> . 12S» NEXT J 
1220 POKE r;Mi -...2366> . 156 

1230 FOR J= 1 TO < 57 -ML > ! POKE < ML+ J-2366 > .176 s NEXT J 
1240 RETURN 

1290 REM LINES 1300-1340 PRINT TITLES ON GRAPH 
1300 K=ML-3940 1 NT < GT < O > ■ •-2 > 

1 305 FOR J- 1 TO GT < & > 5 POKE < J+K > . GT < J > s NEXT J 
1310 K=ML--20S4- 1 N T- C AT < Q ') ■■■2 > 

1315 FOR .T= 1 TO AT Q > " POKE < J+K > . AT < J > s NEXT J 
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1 320 K=-3200-64* I NT < OT < > 2 > 

13313 FOR J=l TO OT < 6 > s POKE <64*J+K> OTc! J> : NEIKT J 

1340 RETURN 

1390 LINES 1400-1490 INPUT TITLES FOR GRAPH 

1 400 I NPLIT " GRAPH T I TLE " ; Q* s GT < & > =LEH < Q$ > 

1410 IF GT<0>>50 THEN QTt:0>=50 

1 420 FOR J~ 1 TO Gil < > s QT < J > =ASC C M I D$ < Q* J , 1 > > s NEXT J 

1 430 I NPUT " ABSC I SSA T I TL E " 5 Q* s AT < > =LEN < Q* > 

1440 IF AT<0;>>50 THEN ATOZi^^SO 

1 450 FOR J= 1 TO AT < > s AT C J > = ASC C M I D* C Q* , J . 1 > > s NEXT J 

1 460 I NPUT " ORD I NATE T I TLE " 5 Q* s OT C > =LEN < Q$- > 

1470 IF OTOH:.' >25 THEN OT';;0>=25 

1 480 FOR J= 1 TO OT < > s OT < J > = ASC C M I D* < Q* , J , 1 > 5 NEXT J 

1490 RETURN 

1590 REN LINES 1 600-- 1650 PRINT POINTS ON GRAPH 

1600 GOSUB 900SGOSUE 2500s QOSUB 1200s GOSUB 2300s GOSUB 2400 

1603 GOSUB 1300 

1605 FOR J=l TO DPS K==<54--NL>*'::X< J > -XA >.••••:: XB-XC> 

1610 L=25* ■:: ■:: J > -'v'A > . - VB -VA > 

1 620 M ■:: J > =64* < 25- 1 NT < L > > -3966+MLh- 1 NT < K > 

1 630 N ■:: J > = 1 92+9* I NT < 8* < K- 1 NT < K > > > + 1 NT 8* < L I NT C L > > > 

1640 IF N<J><-"3968 OR N'M)) 2385 THEN GOSUB 1880 

1650 NEXT J s GOSUB 880 s RETURN 

1690 REM LINES 1700-1710 DEFINE POINTS 

1700 FOR J==l TO DP: X<J>=J*<XB--XA>.--DP-i-XA 

1710 V < J > =FN A ■;: X >:: J > y - next j s return 

2100 GOSUB 900 

2110 INPUT "ENTER MINIMUM Xn MAXIMUM X. AND INCREMENT";: 

XA. XB. XC 

2120 RETURN 

2200 GOSUB 900 

2210 INPUT "ENTER MINIMUM V. MAXIMUM AND INCREMENT"; 

VA. VB:. ','C 

2220 RETURN 

2290 REM LINES 2300-2360 ARE X-AXIS SCALING 

2300 GOSUB 2500 s FOR J=Xft TO XB STEP XC 

23 1 ZZ= I54~"ML > * •:; J XA > ■ • < XB-XA > s I F ZZ > <. 54-ML > THEN 2360 

23 1 5 ZB*=CHR* < 1 28 > ^-Cl-^R$ C 1 29 > +CHR* < 1 30 > ■hCHR* < 1 3 1 > -t-CHR* < 1 62 > 

23 1 6 ZB*=Zi3*+Cl-IR:$ < 1 33 > 4 CHR* < 1 3'-l- > 4Cl-iR* < 1 35 > 

2320 A A= ASC < M I D$ < ZE* . 1 -i- 1 HT < 8* < ZZ- 1 NT <. ZZ > > > .:■ . 1 > > 

2330 l<= I NT < ZZ > 2302+ ML " POKE K . AA 

2340 Q*=STR*<J> s L=LEN<Q*> ! FOR P=l TO L 

2350 POKE ■:; K+P HS3-- 1 HT <; L.-' 2 ) > , < ASC < M I D$ < Q* . F . 1 > > ) " |-'1EXT P 

2360 NEXT J s RETURN 

2390 REM LINES 2400-247© ARE S' AXIS SCALING SUBROUTINE 

2400 GOSUB 25005 FOR J=VA TO VB STEP VC 



81 



2410 ZZ=25*.;:j-VA>.--'::VB-VA>: IF ZZ>25 THEN 2468 

24 1 5 Z A*=CHR* C 1 76 > +CHR* ■:: 1 75 > h-CHR* < 1 74 > +i::|-|R* < 1 5 1 > i-CI-IR* < 1 4© > 

24 1 6 ZA*=ZA*+CHR* C 1 39 > +CHR* < 1 38 > f CHR* < 1 37 > 

2420 A A= ASC ■:: M I D* < Z A* . < 1 + 1 NT < 8* < ZZ- 1 NT < ZZ ::• > > > , 1 > > 
2430 l<=~64* I NT < ZZ > -2367+I1L s POKE l< . AA 
2440 Q*=STR*';:J>i!L.=4_EN'::Q*>sF0R P=1 TO L 
2450 POKE •:: K-L-- 1 4 p ) r < ASC < M I D$ < Q* n P . 1 > > > 

2460 he:kt P:. J! return 

2490 REM LINES 2500-2529 GIUE WIDTH OF V -SCALING 
2500 ML=0:FOR J=VA TO VB STEP VC 
2510 L=LEN'::STR*CJ> ;'S IF L>I1L THEN ML-L 
2520 NE:KT J s RETURN 

2600 REM DEFINE GRAPHIC CHARACTERS 

2610 FOR j=-512 TO -Is POKE J, ©s NEXT J 

2620 U=128SN=-512 

2630 FOR K=:l TO 8; FOR J-1 TO 8 

2640 N=N+7 ' POKE N . K> " HE^CT J s N=|- 1+3 

2650 U=U.- 2: NEXT K 5 RETURN 

3000 REM INSTRUCTIONS FOR USE 

3010 PRINT CHR*"a2::'" 

3015 PRINT " INSTRUCTIONS FOR USE" s PRINT 

3020 PRINT" First set the domain and the range." 

3030 PRINT"This is for the X and V axes. Make sure " 
3040 PRINT" that the points will fall within the ranse" 
3050 PR I NT "and the domain or else you will siet an" 
3060 PRINT"?FC ERROR IN 1718 message or something to" 
3070 PR I NT " t ha t e f f e c t . " 
3075 PRINT 

3030 PRINT" Vou may either define the F^oints or" 

3090 PRINT"haMe the computer do it using the function" 
3100 PRINT" in line 15:. which you can redefine. If you" 
3110 PRINT" haue the computer define the points.- type" 
3120 PR I NT "DEFINE FUNCTION .If you choose to define" 
3130 PRINT" the points yourself, you can enter each" 
3140 PRINT"coordi nate separately or enter X:.V pairs." 
3145 PRINT 

3150 PRINT" Titles may be defined at any time." 

3160 PRINT"AdJ ustments can be made to the X or V " 
3 1 70 PR T NT " s xes by se 1 1 i irg t he i r s ], i ns . G rs p h i n-? " 
3180 PRINT" is accomplished last by typing. " 
3 1 90 PR I NT " I N I T I ATE GRAPH I NG " 
3200 PR I NT s PR I NT s PR I NT 
32 1 I NPUT " RE ADV " 5 AN$ 
3220 RETURN 

4000 REM FADE OUT TITLE 

4005 FOR Z=l TO 20 
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4020 l-OR l<=--62:5 TO -632 STEP' 1 

4 2 5 J 2 •■ • < 8 * R H D < 1 > + 1 
4030 POKE K. ':.2:55 AND J) 
•4040 ME^^IT l< 

4050 FOR 1 = 1 TO 1001! l -IE^rr I 
4060 'NEXT Z5 RETURN 

5000 REM SCREEN [>UI1F' TO l~'R INTER 

5005 DIN UA<30j 60;' 5 FOR J=l TO 30s FOR K=l TO 69 

5007 U A :r , i< ;. =:=PEE1< C 6.4* < J 1 '> i-K 3969 > s NEXT' l< . J 

50 1 N 1 = 3*2-'- 1 m < 6.:+:RND ■; 1 ;:■ 

5 & 2 F' 1< E 2 6 u p i< E 2 6 1 . ! P 1< E 6 2 s P 1< E ]. 2 7' 
5030 POKE 2. 205s POKE 3. 12s POKE 4. 224s POKE 5.201 
5040 XX^=USR •:; > s POi<;E 1 . 65 s XX^USR <. '} ' F'OKE 1 2 s I^^^^^OSF: > 
5050 F OR .T=l TO 30 s FOR L= 8 TO -1 

5060 FOR l<==0 TO 59s IF K- 15^^=INT'::K-15;:' TNEH QOSUB 5180 

5070 CN==PEEK':;L 3* C255-i..iA(; J , K+l ;:';:■;> s FOR N^=7 TO O STEP 1 

5080 F'OKE 1 . H 1 *SCil- | ■■; Cll i4!- ID 2--M ;;■ s >::X=U3I? < i3 ;:■ s NEXT N 1<: 

5090 POKE 1 1 3 s ;KX=USR C s | .lE^f!" L . J s F'OKE 1 . 1 2 s :k;::;==lisF' ( Q :> s REl" Ul^l -I 

5 1 00 POKE 1 . 27 s ;^0^==USR < O > " POKE 1 . 75 s ^^;:^=1JSR ( O .:■ 

15 1 1 POKE 1 1 20 s ::-:;K=nUSR J' s POKE 1 . O s K'H^USR < O ;■ s RET UR|- 1 

F;EADS' 



Lines 3-7 give the name of the program and 
other information about it. Line 10 increases the 
available string space to 100. Line 15 defines a 
function. Line 20 sets the data points at 100. Lines 
30-35 dimension arrays. GT is for the graph title; 
AT is for the abscissa title; OT is for the ordinate 
title. Line 40 clears the video screen. Line 50 
contains three print statements for spacing down. 
Lines 60-270 are print and tab statements that con- 
tain graphic characters, which are printed as ones. 
Line 275 calls the subroutine at line 4000, which 
changes the graphic characters while they are on 
the screen, making them appear to sparkle. After 
three more print statements in line 280, line 285 
asks if the user wants instructions. If the answer is 
yes, it calls the subroutine at line 3000. Line 287 
calls the subroutine at line 2600, which defines 
graphic characters containing a dot in each of 64 
possible positions. Line 290 calls the subroutine at 
line 500, which asks you to enter certain parame- 
ters, or ways that you want the result to be printed. 
Line 295 calls tlie subroutine at line 5000, which is a 
screen dump to the printer. Line 300 ends the 
program. 



Lines 400-480 define the variable (if you want 
to enter them one number at a time). Lines 500-600 
enter the graphing parameters. Some of the data is 
located in lines 580-610. Note the use of the restore 
statement in line 570. Lines 700-740 request you to 
enter the coordinates of the points you wish to plot. 
You must enter each X and Y as a pair. Line 880 is a 
subroutine that pokes the points onto the screen. 
Line 900 clears the video screen. Lines 990-1030 
are used when you enter coordinates for points tliat 
will not appear on the screen. An error message is 
poked on the bottom line of the screen. Lines 
1190-1240 print the border of the graph. Lines 
1290-1340 print titles on the graph. Lines 1390- 
1490 allow you to input the titles for the graph. 
Lines 1590-1650 calculate the positions at which 
points must be printed on the graph. Lines 1690- 
1710 define the points when you are using the 
function in line 15. Lines 2110-2220 are for entering 
the scaling of the graph. Lines 2290-2360 are for the 
X-axis scaling. Lines 2390-2460 are for tlie Y-axis 
scaling. Lines 2490-2520 give tlie width of the 
Y-scaling. Lines 2600-2650 define special graphic 
characters that are represented as dots. Lines 
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Fig. 5-2. A large-scale high-resolution data point plot. 

3000-3220 give the instmctions for use. The sub- 
routine in lines 4000-4060 fades out the title by 
changing the graphic characters on the screen. 
Lines 5000-5110 are an optional screen dump, 
which wiii enable you to print the graph. 

As we have said, this program may not work on 
the many computers that do not allow you to define 
graphic characters. 

A Function Plotter in BASIC— Program 13 

The high-resolution function plotter that we 



discussed in Chapter 3 can be expanded so that each 
number in the array can represent more than the 12 
points that it represented in that program. In this 
program we will attempt to have it represent up to 
19 numbers. Smce 8-bit microcomputers use up to 
24 bits to represent the mantissa of a number and 
will typically hold an integer as large as six digits 
before it converts it to floating point notation, we 
have approached the practical limit of representing 
numbers as bits of another number in order to plot 
them as points. Since the Boolean algebra binary 
logical OR and AND functions may not work for 
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such large numbers we have to spUt the number of errors when such large numbers are added to such 

bits in half and then do the logical operations on the small numbers. The many manipulations necessary 

two halves. Tlie result is in Figure 5-3. The tat- when erasing bits also contributes to the imprecise 

tered appearance of the figure is due to rounding appearance. The metliod is nonetheless valid. 

10 REM 3D HIGH RESOLUTION FUNCTION PLOTTER 

20 REM SECOND MERSION 

30 REM WRITTEN BV TIMOTHV J. O'MALLEV 

40 REM COPVRIGHT 1982. TAB BOOKS INC- 

50 REM 

60 GOSUB 100! REM INITIALIZE PROGRAM 
70 GOSUB 200: REM PLOT POINTS IN ARRAV 
80 GOSUB 600: REM PRINT OUT ARRAV ON PAPER 
90 END 

100 REM INITIALIZE PROGRAM 

1 1 HGT= 1 9 : W I D=349 : UI2=70 

1 20 DEF FNA R :.' = 1 8* < EHP ( -R*R.-- 1 000 > *COS <■. R.--6 > ::■ 

130 DIM UAc:hGT,I...IID>:REM DIMENSION ARRAV FOR PLOT 

140 DIM Al<:20>sK=l 

1 50 FOR J=0 TO 20 : A 1 <: J =l< s l<=K*2 s i-iEKT J : RETURN 
200 REM PLOT POINTS IN ARRAV 

210 FOR X=-~40 TO 40 STEP 0.5: FOR V=-40 TO 40 STEP 0.2 
220 R=SQR ■:: ;•■•:*:••=:+ V*V > : Z=FNA < R > s U= V:*0 . 1 7-X*0 . 0S-I-Z-I-HGT.--2 
230 H=;--:*2, SS+V*2, 6H-l,.IID.--2: IF U<0 OR U>HGT OR H<0 OR 
H>UIIDTHEN290 

240 I U= I NT < ij > s I H= I NT •:: H > : DU= I NT < 1 9* < U- I U > > : PU= A 1 < DU > 

250 IF ciUA':: IM. IH) >512> OR (PU>512> THEN GOSUB 300: GOTO 270 

260 U A < I U . I H > =UA < I U . I H > OR PU 

270 GOSUB 400: REM ERASE POINTS BELOW PU IN UA';;iU,IH> 
2S0 GOSUB 500: REM ERASE POINTS BELOW UA':.' lU. IH> 
290 NEXT v.- RETURN 

300 REM NUMBERS TOO LARGE FOR OR FUNCTION 

305 VS= I NT < 'J A I U , I H :;■ .•■-5 12): KS=U A •:: I U . I H > -5 1 2* VS 
310 IF PU>512 THEN ZS=INT';:PU.-512> : VS=VS OR ZS 
320 IF PU<=512 THEN KS^l-lS OR PU 
330 UA ■:: I U . I H > =KS+5 1 2* VS : RETURN 

350 REM NUMBERS TOO LARGE FOR AND FUNCTION 

360 '-.'S^ I NT < U A < I U . I H > . "S 1 2 > : XS=U A < I U . I H > -5 1 2* VS 

370 IF J2>512 THEN ZS==INT<.T2.--512> : IF < VSANDZS;3=ZS THEN 

380 IF J2<=512 THEN IF <.y.S AND .J2>=J2 THEN :^S=:KS-J2 

390 U A •:; I V . I H > =:=-:S+5 1 2* VS : RETURN 

400 REM ERASE POINTS BELOW PU IN UA'; lU. IH> 

410 IF DU=0 THEN RETURN 

420 FOR .J=DU--1 TO STEP •- 1 : J2=A1 < J> 

430 IF <J2>512> OR ^UA':; lU. IH> >512> THEN GOSUB 350: GOTO 450 
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440 IF <: UA < I U . I H > AHD J2 ::■ = J2 THEN UA >■. I U . I H > ==i..iA < I U r I H > -.J2 
450 iiEKT J s RETURN 

!580 REM ERASE POINTS BELOW UA<IU,IH> 

510 IF IU=0 THEM RETURN 

520 FOR J=IU-1 TO STEP -1 s UAC J. IH>=0i: NEXT J: RETURN 
600 REM PRINT OUT ARRAV ON PAPER 

605 GOSUB 700 s REM SET UP MACHINE LANGUAGE SUBROUTINE FOR 
PRINTER 

610 FOR JS=HGT TO O STEP -Is FOR MS=1S TO O STEP -1 
620 BS=A1 <MS> 5 FOR LS=0 TO 4 s GOSUB 660 
625 FOR I<S=LS*I...I2 TO LS*I...I2+W2-1 

630 IF <BS>5i2;:' OR ':;i-..'A< JS, KS) >512> THEN GOSUB 800s GOTO 640 
635 POKE 1 . SGN ( BS AND UA < JS , KS > > s KIK^USR < > 
640 NE:KT KS . LS s POKE 1.13s ;KK==USR < O > s NEXT MS . JS 
650 POKE 1,125 KK-USR < O > s RETURN 

660 POKE 1 , 2? s ::<>^:==USR < O > s P0I<:E 1 . 75 s XJ<=USR < > s POKE 1 , 1...I2 

670 x:k=usr < > ! POKE 1 ■.- s :!<::«:=usR <.@>i return 

700 rem set UP MACHINE LANGUAGE SUBROUTINE FOR PRINTER 

710 POKE 260.01: POKE 261:. 0s POKE 8, 62". POKE 1,27s POKE 2,205 

720 POKE 3,12s POKE 4,224s POKE 5,201s XX=USR < & > ' POKE 1 , 65 

730 :":x=usR < y s poke i , i s :«:x»=usr < > s return 

800 REM NUMBERS TOO LARGE FOR AND FUNCTION WHEN PRINTING 

t-; 1 RS^O s ',':?;= I NT ( OA <: JS , l<:5 > . '5 1 2 s ;-;S=iJA •:: JS , KS > -5 1 2*VS 

820 IF BS>512 THEN ZS-INT<:BS-'512> s IF <VS AND ZS>=ZS THEN RS=1 

830 IF BS^,=512 THEN IF 0<S AND BS>=^BS THEN RS=1 

840 POKE 1 , RS s XX=USR < > s RETURN 

READ'/ 



Let's examine the program. Lines 10-50 give 
the name of the program and the other credits. Line 
60 calls the subroutine that initializes the program. 
Line 70 plots points in the array. Line 80 prints out 
the points on paper using high-resolution graphics. 
Line 90 ends the program. 

Line 100 is the remark statement for the ini- 
tialization subroutine found in lines 100-150. Line 
110 sets the height, width, and the variable W2 for 
the printer. Line 120 defines a function. Lines 130 
and 1-^0 dimpnsion arrayt? and s^t the variable K to 
1. Line 150 stores the powers of 2 in an array called 
Al. Tnen program control returns to line 70. 

The points are plotted in lines 200-290 with 
line 200 being the remark statement which contains 
the subroutine's heading. In line 210 we have the 
start of two nested for-next loops that give the X 
and Y- coordinates. In line 220 R is set as the dis- 



tance from the middle of the plot. Z is a function of 
this distance. In this program if the number PV or 
VA(IV,IH) is greater than 512 (2 to the power of 9), 
the numbers are too large for the OR function and 
the AND fimction, and they are split in two (not 
divided by two). Then the binary logical operations 
can be exeaited to plot the points. Lines 270 and 
280 erase points below the most recently plotted 
point. 

Lines 300-330 are the lines of the subroutine 

350-390 are the lines of the AND function sub- 
routine which split me numbers that are too large. 
Lines 400-450 erase the bits in the number below 
the present bit position. Lines 500-520 erase the 
bits in the numbers below the current number by 
setting those numbers in the same column of the VA 
array to zero. Lines 600-670 form a machine- 



86 



Fig. 5-3. A large-scale high-resolution function plot. 



language utilizing subroutine that sends numbers to 
the printer, set up by tlie subroutine in lines 700- 
720. If the numbers are too large for the AND 
function used in the printing subroutine, the sub- 
routine in lines 800-840 is used. 

THREE-DIMENSIONAL SOLID FIGURE PLOTTERS 

We now look at two programs that eliminate 
lines to make three-dimensional solid figures. 
These two programs use different techniques to 



eliminate hidden lines. We have already seen a 
couple of metliods of eliminating points; namely, 
erasing points that are below the points plotted on a 
function, and sorting and ignoring points in the case 
of the molecular models. 

An Architectural Drawing in BASIC— Program 14 

Figure 5-4 shows one of the possible views of a 
simple solid figure in the shape of a building. This 
low-resolution figure is also in perspective. 
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10 REM THREE DIMEHSIOHAL SOLID PLOTTER 

20 REM WRITTEN BV T I MOTHS' J. O'MALLEV 

30 REM COPYRIGHT 1982. TAB BOOKS INC. 

40 REM 

50 GOSUB 200s REM INITIALIZE UARIABLES 

60 GOSUB 500 s REM BLANK ARRAV 

70 GOSUB 600s REM ROTATE POINTS ABOUT AKIS 

80 GOSUB 800s REM PLOT LINES AND ERASE HIDDEN POINTS 

90 GOSUB 2000 s REM PRINT OUT ARRAV 

100 GOTO 60 

200 REM INITIALIZE UARIABLES 

210 I P= 1 s I A=7 s B*= " Z " s E=0 . 3 s S= 1 s T= I P s F=0 . 1 '• Q=0 . 93 s U=3 1 s lj.l=63 
220 D I M < I P > . V •:: I P > . Z < I P > . R < 3 > -.• iJ A < U . W > . LL < I A . 1 :;■ . D I ■:: I A > r 

ST -a a;:' 

230 FOR J= 1 TO I P 5 READ X '■. J > . V C J > . Z J > s NEKT J 

240 FOR J=l TO IAS FOR K=0 TO 10s READ LLCJ, K> s NEXT K.J 

250 DATA . n 1 . 2 1 . . 2 r , 

260 DATA . . 1 :. 2 . O 1 . 8 ©,5.1, 5 :. 2 . O „ 5 1 . 5 

270 DATA 0n 1 . 1 2, 1 1 

280 DATA 5 . 1 . 2 3 4 . 1 ? O 8 . n . 8 
:290 DATA 5 . 1 5 . 6 . 4 1 . p . . 8 

300 DATA 5n 3. 10:. 9. 2n 3:. 0. 0. 0. 0. 

3 1 DATA 5 1. 5 . 6 8 . 7 ? 5 . n 8 . 8 
320 DATA 5 . 8 . 1 9 . 7 . 8 ■.. 8 . 6 ■.. 8 . 8 

330 DATA 6. 1 r 2:. 9p 7. 5. 1 8p 0;. 0p 

340 DATA 6 , 4 . 3 . 1 13 . 8 .6.4 .0.0.0 
350 R< 1 > = 1 s Rt:2>=0. 5s R';;3> = 1 
3 6 K >: > = 1 s 'y' •■: 8 > " - 1 8 5 Z < > •= . 7 
370 RETURN 

500 REM BLANK ARRAS' 

510 FOR J=0 TO Us FOR K==0 TO W s U A < J , K > =32 s NEXT K.J 
520 RETURN 

600 REM ROTATE POINTS ABOUT AXIS 

610 FOR J=S TO T 

62© IF B$= " Z " THEN A 1 ~X < J > ' A2=R < 1 > ' A3=V < J > s A4=R < 2 > 
i:E.30 I F B4-= " '■,■' " THEN A 1 ==X J > s A2=R < 1 > ' A3=Z C J > s A4^=R <■. 3 > 
64© I F B*^ " X " THEN A 1 J > s A2=R < 2 > s A3=:=Z < J > s A4=R < 3 > 
6 50 P 1 = A 1 - A 2 s P 2 ~ A 3 - A •^^l- 
660 I .=:SPR P 1 *P 1 +P2*P-:::' 

670 IF P2=0 THEN A5==^-';;P1<0>*3„ 141593 
680 IF P1=0 THEN A5=SGH<P2:>*1 „ 578796 

6.90 I F P2< > AND F' 1 < >■© TI-IEN A5=ATM < P2. T=' 1 ':> ■■; P 1 < > :+:3 , 1 4 1 593 

700 A5=A5+E 



710 IF B*="Z" THEN X'::J>^=L*i: 
720 IF B*="S^" THEI^-I X'::j)=L*i: 
730 IF B*="X" THEN '^■'< J)=L:'i'-i; 



OS < A5 > +R < 1 > s V < J > ==L*SI N C A 5 > +R < 
OS < A5 > -^R < 1 .:■ s Z C J > "L:*S I N < A 5 > + R <■ 
OS A 5 > +F- < 2 > " Z < J > ==L*S 1 1 •! < A 5 > i- R < 
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740 i-^e:kt J 

750 RETURN 

800 REM PLOT LINES AND ERASE HIDDEN POINTS 

805 REN LINES 810-840 FIND NEAN DISTANCES TO FACES 

810 FCiR .J= 1 TO 1 1=^ 3 l<=~LL J > 1 !i C' I J > ~=0 

820 FOR L=: I TO K. " SUM" X C Ll_ '■: J L .) > ■■ >■. < :.' > ■ "■2+ < ',' ( LL J ■.. L > > - V < > > - "2 

830 D I < J y =D I •:; J ;:■ +SQR •;: SUM+ < Z < LL •:; J . L > > -Z < > ') "-2 > 

840 NEXT L; D I < J > =D I< J > .■i< s ST •:: J > = J s NEXT J 

850 REM LINES 8613--940 ARE A DESCENDING ARRAV SORTER FOR ST 

860 FOR ..J=l TO IA-1 

870 K=J 

880 IF D I ■:: l< ;:• >=D I ■:: K+ 1 > THEN 940 

890 A=ST'::i<> 5 B=DI Clio 

900 ST < K > =ST < K+ 1 > ; D I < K =D I < K-i- 1 > 

910 ST < |<+ 1 > =A s D I ■:: l<+ 1 > =B 

920 K==K-1 

930 IF IO0 THEN 880 

940 NEXT J 

945 REM CONUERT X.SSZ TO H.U < LINES 950 1150> 

950 FOR J=l TO IP 

960 DV=V<J>--V<0>s IF DV<=0 THEN PRINT "DECREASE Vc:0>";STOP 

970 DX=X'::J;'--Ki;;0> 

980 DZ=Z'; J > -Z'::© ) 

990 J :> = ATN < F*DZ.- 'DS^ > 

1 000 H <: J :■• =ATH f:+:d;^-^.--d'-,^ ) 

1010 NEXT J 

1 020 M I NU=U < 1 > ;i MA^<>vJ=U < 1 > 

1 030 M I NH=H < 1 > MAXH===H 1 > 

1040 FOR J=l TO IP 

1050 IF IKJXMINU THEN MINU=U<J> 

1060 IF U';J>>MAXU THEN MAXU^^UCJ) 

1070 IF H'MXMINH THEN MINH^=4-I<J> 

1080 IF H < J > >ma;^<h then MAXH=H':;J> 

1090 NEXT J 

1 100 dh=ma^:;h-minh 
1 1 10 du=maxu-minu 

1120 FOR J=l TO IP 

1 1 30 H C J > =G* < H J > M I NH > •• C'l -I*!...! 

1 1 40 ij c J > =Q* < u >: J y -M I NO y di^i^u 
1150 \)Em J 

1155 REM LINES 1160-1670 DRAU LINES. PLOT, AND ERASE POINTS 
1160 FOR L=l TO I A 

1 1 70 FOR .J^== 1 TO LL ST < L > . O > 1 

1 1 80 HH=H < LL < ST >.. L > , J+ 1 > :) -H •:; LL < ST L > J > y 
1 1 90 UO=i..i •; LL t; S T < L > , J+ 1 > > -V C LL <: ST L > J > > 
1210 IF HH:=0 THEN 1310 
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1220 I1==UU.-HH 

1 230 B=ivi •:: L,L < ST < L > . J > > -H*!-! < LL ( ST C L > . J > > 

1 240 SP=SQR < UU*UM+HH*HH > 

1 250 FOR l<=l I < LL •:: ST < L > , J > > TO H ( LL < ST < L > . J+ i > ) ST'EF' HI-l - Si=' 

1260 P=r'1*K+B 

1270 GOSUB 1400 

12S0 HEKT 1< 

1290 ne;kt J 

1300 GOTO 1440 

1310 REM SLOPE EQUALS INFINITV 

1320 i<=h<lL';sT':l> , J;' 

1 330 I F U'.J==0 THEN P=U < LL < ST < L > J > > : GOSUB 1 ■400 s GOTO 1 290 
1 340 FOR p=U < LL < ST < L > . J > > TO U LL < ST < L > . J+ 1 > > STEP SGN < UU > 
1350 GOSUB 1400 
1360 NEXT PS GOTO 1290 

1400 REM PLOTTING SUBROUTINE 

1410 IF P>U OR P<0 OR K>l...l OR l«0 THEN RETURN 

1 420 U 1 = I NT <P>s U2= I NT < K > 

1 430 Uf-i < U 1 , U2 > =40 s RETURN 

1440 MPU=0SMPH=0 

1450 FOR J==l TO LL<ST':;L> p 0>-l 

1 460 MPU=U < LL C ST < L. > , J > > +MPU s MPH=H < LL < ST < L>.-J> > +MPH 
1 470 NEXT J s MPU= I NT < MPU.-- < LL < ST < L > , 8 > ~ 1 > > 
1 4SS rirrl^^^ I i -iT C MPi i ■ < LL ■: ST < L > . S > 1 > > 

1495 REM LINES 1500-1620 ERASE POINTS WITHIN POLVQON FACE 

1 588 ML=SQR < W*W-!-U*U > 

1510 FOR J=0 TO 6.3 STEP 0.02!:l<>-0 

1 520 H I ~MPH+ 1 NT < K*COS < J > > s U I =MPU+ 1 NT < K*S I N < J > > 

1525 IF lOML OR UI>U OR UK© OR HI>W OR HK0 THEN 1629 

1530 IF UA'-:U1,HI>=40 THEN 1628 

1540 UA<UI . HI >=32 

1550 l<=M<+0„4 

1560 GOTO 1520 

1620 NEKT J 

1625 REM LINES 1630-1660 CHANGE MARKER CHARACTERS TO 

ASTERISKS 
1630 FOR J-"8 TO U:FOR K=:0 TO W 
1650 IF liA'-; J. K:--==40 THEN UAc; J:. K>=42 
1660 NEKT K,J 
1670 NEXT Ls RETURN 

2000 REM PRINT OUT ARRAV 

2010 FOR J==U TO STEP -1 

2020 FOR K=-0 TO W 

2030 PR I HT CHR* >■ UA < J . K > > 5 

2040 HE^rr K 

2050 PRINT 
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2060 i-c:kt J 

2070 PRINT CHF?*';. 12>;i 

2080 RETURM 

REIADV 



Let's quickly run tlirough the program to see 
how we ehminated the hidden points. Lines 10-40 
give the credits. Line 50 calls the subroutine at line 
200, which sets up the variables, dimensions the 
arrays, and reads data, etc. Line 60 blanks the array 
that is used to store the points by calling the sub- 
routine at line 500. Line 70 calls the subroutine at 
line 600, which rotates the points. Line 80 calls the 
subroutine at line 800, which plots tlie lines and 
erases the hidden points. Line 90 prints out the 
array of points. Line 100 directs control to line 60 to 
make an endless loop to present all the different 
views of the model. 

In the subroutine in lines 200-370, IP is the 
number of points used to determine the figure. lA is 
the number of polygon sides or faces on the figure. 



The other variables are the same as in other pro- 
grams. The LL airay is a linked list of line connec- 
tions for the polygon sides. Each line (row) of the 
array is the connection for a side. The first number 
in each row of the array is used to tell the number of 
line connections for each side. The remaining num- 
bers in tlie array indicate the number of the point 
used, much like in other programs. 

Line 500 sets all the array elements of VA to 
32, the ASCII code for the blank space. Lines 600- 
750 rotate points exactly as in earlier programs. 
Lines 810-840 find the mean (average) distance to 
each polygon face. This information is used to de- 
termine what face to plot first, second and so forth. 
We plot the face furthest from the viewpoint first. 
Lines 860-940 sort the indices of the points by 
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Fig. 5-4. An architectural example of three-dimensional solid plotting. 
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decreasing distances of the faces from the view- 
point. Lines 950-1150 convert the X, Y, Z coordi- 
nates of the points to horizontal and vertical values 
much like in earlier subroutines that plotted 
perspective lines. Here we complicate things a 
little by making use of the linked list. 

In line 1440, MPV is the vertical value of the 
midpoint of the polygon side, and MPH is tlie hori- 
zontal value of tliat midpoint. We set it to zero 
initially, and then find its true value in lines 1450- 
1480. Lines 1500-1620 erase points v^athin each 
polygon side. It changes the value of anything near 



A Landscape in BASIC— Program 15 

Figure 5-5 depicts an artificial landscape made 
by a computer and a printer. It resembles a rocky 
terrain in which the valleys in the background are 
hidden by tlie peaks in the foreground. Since this 
program uses the random (RND) function, this 
figure is only one of many that are possible. 

The program is fairly simple. Lines 10-40 give 
the credits. Line 50 sets the height of the printout at 
60, and sets W, the number of ridges in the figure, 
to six. Line 60 dimensions the VA array to tliose 
values. The nested loop in lines 70-100 determines 
the values of the points in the array using the RND 



1 REI'I TURAL iSCEHE < BRO Whl I AH GEHERPiT I OH ?' 

20 REM WRITTEH B',' TIHOTHV J. O^MALLEV 

30 REM COPVRIQHT 1.982, TAB BOOKS IHC. 

4ei REM 

50 IJ-"-iSi:;ii! UI-=6 

60 DIM i..iA';U:. W;' 

70 FOR H:^H, I C) 1,1 

7'5 l..'A H > 1 5 H -|:'|.:7:+:R1 -IC:. i > 

80 FOR 1.1-=^ TO U 

9& iJA , H > t=.Li|r:, ], , |.| + < rud < 1 > -8 ., 15 *4mi-U:> < 1 > 

100 HE XT U:. M 

110 FOR I..I-0 TO U 

120 P==0 

130 F-OF: H=-0 TO h) 
140 1=UA';0, 1 1;-' 

150 IF I<^=P OR 1)63 THEH ISO 
160 PRIHT' TAB':. 1 > ; ? 
170 P==l 

180 HEXT !-|: PRlHTi! HE;^rr '.J 
READ',' 

the midpoint to 32. Lines 1630-1660 change the function. Lines 110-180 print out the figures. Line 
number 40 in the anay to 42, tlie ASCII code for the 150 says if a value position of a point is to the left of 
asterisk. We used the number 40 to indicate the the last points, that is hidden, go to the next point, 
boundary of the polygon, a number that would not This corresponds to a valley in the figure, 
be erased by the program. See line 1530. Lines This program uses so-called Browniangenera- 
2000-2080 print out tlie array as characters, either tion because each point is determined in part by the 
blanks or asterisks. position of the last point in the same ridge. 
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Chapter 6 





The video display screen and printer of tlie personal 
computer may be used for many purposes; among 
them is computer art. Imagine! Think of all the 
possible images that can be created and displayed 
on the screen or on paper. Any image that can be 
made as a pattern of light and dark points, and in 
some cases, colored points can be generated by the 
personal computer. 

Let's look at some of the ways of producing the 
images that comprise computer art. Remember 
diat the imagination of the programmer and the 
sophistication of his system determine the quality 
of the computer-produced art. 

HOW TO GENERATE COMPUTER ART 

It all starts with an idea. A programmer has an 
idea which he wants to turn into a work of art to 
display using the computer. He can approach it in at 
least two ways: he can sketch the work on graph 
paper and then transfer the points to the computer 
for precise definition and positioning; or he can 
have the computer define all the noints mathemati- 



cally, according to some algorithm. He might tlien 
refine the image by deleting some points to high- 
light a particular feature. When finished, he has a 
work of computer art. 

Handmade Method 

Let's examine each of these methods in detail. 
In the handmade method, you might start with a 
photograph or drawing of a subject of interest. 
Since points lie in specific positions, graph paper 
can be used to specify their locations. Squares con- 
taining points would be filled in. If a line ran through 
a square on a graph paper, the square could be filled 
in. 

Tn a methor! rallprl qirnple thre'^holHing, a 
square of the graph paper would be filled in if a line 
ran tiirough tliat square or if, in the case of shading, 
that square corresponded to an area that was 
darkened. In partially shaded squares it would be 
filled if the square was 50% (or more) filled. Each 
picture element would be transferred until the en- 
tire image was completed. A more complex method 
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would be to assign values, of for example, zero to 
nine, to each picture element and then to use col- 
ored dots ranging from a bright color to a dark color 
as the values ranged from zero to nine. This process 
would be very tedious and may not be worth the 
time because there are better alternatives. 

The handmade method is good for defining still 
images especially still components. A still image is 
a large picture that is intended to be displayed once. 
It can't be manipulated easily and will occupy the 
same part of the video screen each time that it is 
displayed. A still component is a small portion of 
that image that can be moved about on the video 
display. 

Computer-Generated Method 

Computer-generated art does not require the 
nitty-gritty kind of labor that the handmade method 
demands. Software is used exclusively to syn- 
thesize a picture. To make the picture, tlie compu- 
ter would run through a program and decide what 
picture elements to turn "on" or leave "off'. It 
might also be programmed to alter the image to 
create an abstraction, an exaggeration of reality. 

To make a circle, for instance, the computer 
would use the equation of a circle to plot points. 
Squares, triangles, and other figures might also be 
plotted from their mathematical definitions. Vari- 
ous techniques might be used to generate altered 
images: simple figures could be distorted by some 
factor; false colors might be applied to perform 
highlighting. 

STILL IMAGES 

We will now direct our attention to the making 
of a still image using the handmade method. We will 



look at two types of graphic characters. 

As we said earlier, some computers use 
graphic characters that have ASCII codes above 
128. To print these characters, the programmer 
simply types: PRINT CHR$(N), where N is the 
code number for the graphic character. The pro- 
grammer might supply the values for N in data 
statements in the handmade method. The program 
would contain a series of data statements contain- 
ing the location of points that the computer would 
read in the print as graphic characters. 

Other computers allow you to activate indi- 
vidual dots or rectangles on tlie video display 
screen. Some of these computers use a function 
called set, where (SET(X,Y) would turn "on" the 
rectangle at position (X, Y) on the video screen. The 
programmer need only supply a list of coordinates 
and have the computer perform a series of sets to 
display the image on the screen. Other computers 
that activate individual dots turn "on" the points by 
altering the bits of the memory location that relate 
to the screen RAM. 

The Space Shuttle As An Example— Program 16 

Figure 6-1 is the image of the space shuttle 
made using the handmade metliod. In this case we 
drew the shuttle on graph paper, filled in squares 
that were dark areas, then calculated the numbers 
that resulted if we assumed that the dark areas 
were bits of a number. That is, using groups of eight 
positions, if the rightmost square is the only one 
that is darkened, the number is 1. If the leftmost 
square is darkened, the number is 128. Thus we 
take the binary of the squares and make decimal 
numbers. We present the BASIC program that 
made the figure but we will not examine it in detail. 



10 REM HIGH RESOLUTION REALISTIC ART 

20 REM WRITTEN BV T I MOTHS' J. O'MALLEV 

30 REM COPVRIGHT 1982, TAB BOOKS INC- 
40 REM 

45 PRINT CHR*<12)I! 5REM CLEAR SCREEN 'CSOME USE CLS> 

50 GOSUB 1 000 s REM DEFINE GRAPHICS 

60 GOSUB 20003 REM PLACE GRAPHICS ON SCREEN 

190 END 

200 DATA 88 



95 



210 DATA 24.0. Ir3, 7. 7r 15, 14.30, 112.252,246, 143.248,0.0.31 
220 DATA 0.0,0,0,128.192,32.160 
230 DATA 104 

240 DATA 24.31.56.32.32.33.33,97.97,43.48.0.0,255,0.0,0 
250 DATA 208,24,8.228.252.66,66,66 
260 DATA 96 

270 DATA 32,0,0,0.1,1,1,3,3,97,225,225.225,225,225.225.225 
280 DATA , , . 255 . . . , , 66 , 66 , 66 , 253 . 66 . 66 , 66 . 66 
290 DATA 96 

308 DATA 32.3.7.7:. 11,11, 19, 35. 68. 241 . 241 . 241 . 241 . 241 . 241 . 241 
. 17 

~S 1 DATA , , 255 , Gi , . . . . 66 . 66 . 252 . 66 . 66 , 66 , 66 . 66 
320 DATA 80 

330 DATA 64 . , . .0.3.12.19.36,1.6.27.1 08 . 1 76 . 1 92 . . 
340 DATA 1 52 . 224 , . . , . .0.17.17.17.17.1 7 . 33 . 33 . 33 
350 DATA . 255 , . , , , , . 66 . 25'4 .71. 66 . 66 . 66 , 66 , 66 
36eii DATA ,0.1 28 . 1 92 . 48 . 24 . 6 . 3.0. . . . .0,0.1 28 
370 DATA 64 

330 DATA 64 , 72 . 96 . 1 1 2 , 255 . 1 35 . 224 , 3 1,0, ,0.0 . 255 . 255 , 35 . 1 60 
. 126 

390 DATA 0.0.0.0. 254 . 255 . 3 , 3 . 35 , 38 . 36 . 36 . 40 . 232 . 200 . 200 
400 DATA 255 . , . S , . . . . 254 . 1 26 ,115. 92 . 70 . 67 . 65 , 64 
4 1 DATA r r . 1 28 r 96 . 96 . 255 .127. 22--! ..112.. 28 .. 1 4 .. 6 .. 3 .. 255 . 255 
420 DATA 72 

430 DATA 56. 1.0.0.0.0.0.0.0.243. 13.5.5.3.3.0.0 

440 DATA 20 1.217. 254 . 248 , 240 . 255 . 1 27 , 1 . 255 , 1 52 . 1 36 . 248 .31. 247 
450 DATA 248.255.216.87.49.24.247.224. 192. 128.28. 12. 199.54 
460 DATA 1 42 . 1 02 , 30 . , 3 . 38 . 224 .0.0.0.0.0 
470 DATA 128 

1000 REM DEI- I ME GRAPHICS 

1010 A=- 1 025 s 11=0 

1020 FOR .J=l TO 15s READ Z5H=0 

1030 FOR I<=1 TO Z:A=A+lsIF r'1<0 THEN READ H 

1040 POKE A.NsNE;KT K:M==H0T<r'1>sNE;KT J 

1050 RETURN 

2000 REM PLACE GRAPHICS ON SCREEN 

2010 FOR Q=192 TO 1216 STEP 512 
2020 FOR P=Q-396S TO Q-3920 STEP 16 
2838 L=127 

2040 FOR .J=P TO P+511 STEP 64 

2050 FOR l<=0 TO 15 

2060 L=L+1 

2070 POKE <.J+K>.L 

2080 NEIKT K.J.P.Q 

2090 RETURN 

READV 
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Fig. 6-1. Top view of space shuttle created using the hand- 
made method. 



Advantages and Disadvantages of Still Images 

Still images are good if they are to be used 
once and do not need to be manipulated in any way. 
Still images would be good for file purposes. 
Perhaps you want to store a picture on tape or disk 
for retrieval at a later date. Still images would be 
good for that purpose. Should you want to manipu- 
late the still image, you would be at a disadvantage; 
still images are not easily moved. 

STILL COMPONENTS: 

MOVABLE UNITS OF STILL IMAGES 

One way to manipulate still images is to divide 
those stills into components and then move the 
components. By taking small blocks, you can man- 
age the images fairly easily. 

If your computer is capable of defining graphic 
characters, you can create specific still compo- 
nents. These components can be whatever you 
need: electrical symbols for wiring diagrams, elec- 



tronic units, or even plumbing parts. They can be 
arranged on the video screen according to your 
wishes. The ease with which they can be manipu- 
lated makes them valuable for images with moving 
parts. 

The numbers that define each component are 
stored as an array under a variable name. When that 
component is needed, the computer locates the 
correct position on the screen and then uses the 
numbers from the array to print the still component 
on the video display. 

Chessmen as an Example— Programs 17 and 18 

Figure 6-2 is the display of a chessboard and 
Fig. 6-3 is a display of a chessboard with chess 
pieces on it. A chess game is a pefect example of ttie 
use of still components: the men have to be moved 
about on the screen, and the programmer can define 
the way the men are made to suit his personal 
wishes. The chess program that uses tlie pieces 
would control where the pieces are placed during 
the course of the game. 

We will not look at how we defined the 
chessboard or the chessmen, but we will present 
the BASIC programs that created them. Each dark 
square on the chessboard was made of eight rectan- 
gular graphic characters in a 2x4 array. Each 
chessman was made of a 2x2 array of four graphic 
characters that were defined by numbers in data 
statements. Since squares were either white or 
black, we had to make two sets of men: one for use 
on white squares and one for use on black squares. 
The men occupy tlie center of each square. You can, 
of course, change the way the chessmen appear by 
redefining them. 



10 REM CHESSBOARD AND SCREEN DUMP 

20 REM WRITTEN BV TIMOTHV J. Q- MALLEV 

30 REM COPVRIGHT 1982:. TAB BOOKS INC., 

40 REM 

50 REM PRINT CHESSBOARD ON SCREEN 

60 PR I NT CHR* < 1 2 > ; 5 P=-3892 s L=- 1 

70 FOR J=0 TO 31 sP=P+ l5P0t<E P 1 76 s NEWT .J:P=P+1 

80 FOR ..T=l TO SsFOR M=l TO 2s P=P+31 s POKE P.- 135 

90 FOR K=l TO 8: FOR N=l TO 45P=P+l:POKE P.- < 177+145*L::' 

100 NEXT NsL=NOT LsNEXT K:L=NOT L:P=P+1:P0KE P. 128 
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110 L=HOT LsNEHT M:L=NOT LsHEXT .JsP=P+31 
120 FOR J=l TO 32: F-P-i-ls POKE P,13?:HEKT J 
200 REM SCREEN DUMP TO PRINTER 

210 N 1 =3*2 •■■ I NT < 6*RND < 1 > > 

220 POKE 260 :. s POKE 26 1.0: POKE 8 . 62 s POKE 1 , 27 

230 POKE 2 205 ' POKE 3 1 2 s POKE 4 n 224 s POKE 5 . 20 1 

240 X=USR ( > s POKE 1 . 65 n ;k==USR < 9 > = POKE 1.2: X=IJSR >■. 8 > 

250 FOR J=l TO 29s C1=64*J"3968 5 FOR L=-S TO -1 

260 FOR K=0 TO 59s IF K.-15=INTf:K^--15> THEN GOSUB 300 

270 CH=PEEK< L--8*c:255-PEEK'::Cl+K> > > s FOR M=7 TO STEP -1 

280 POKE l.Nl*SGN'::CN AND 2-M> s X=USR<0> s NEXT M.K 

290 POKE 1.13s X=IJS;R < Q s NEXT L . J ' POKE 1.12s X=1JSR < 8 > s RETURN 

300 POKE 1.27s X=:USR < O > s POKE 1 . 75 : X=USR < O > 

3 1 POKE 1 . 1 20 s X=USR < S ) n POKE 1.0: X==USR -CO): RETURN 

READ',' 



10 REM CHESSBOARD AND SCREEN DUMP 

20 REM WRITTEN BV TIMOTHV J. O'MALLEV 

30 REM COPVRIGHT 19S2. TAB BOOKS INC. 

40 REM 

45 REM CLEAR SCREEN 

50 PRINT CHR*<:12>; 

51 DIM BD<S.. 3> 

52 FOR J=l TO 25 FOR K=l TO 85 READ BDCJ. K> s NEXT K.J 

53 FOR J=7 TO 8= FOR K=l TO SPREAD BD-:: J. K> s NEXT K.J 

54 DATA 200.232.204.220.192.228.208.224 

55 DATA 236.212.236.212.236.212.236.212 

56 DATA 148. 172. 148. 172. 148. 172. 148. 172 

57 DATA 160.144.164.132.152.140.168.136 

59 REM READ IN GRAPHICS 

60 P=-3892 : L=- 1 s P 1 =P+66 

61 FOR J="1024 TO -60 is READ NsROKE J.NsNEXT J 

62 FOR J=-512 TO -129s READ N: POKE J.NsNEXT J 

69 REM DRAW CHESSBOARD 

70 FOR J=0 TO 31 sP=P+l SPOKE P. 180s NEXT Jsp=P+l 
80 FOR J=l TO 8^ FOR M=l TO 2: P=P+31 s POKE P. 176 

90 FOR K=l TO 8SF0R N=l TO 4sP=P+l:P0KE P. ( 177+145*L> 
100 NEXT N:L=N0T LsNEXT KsL=NOT L5p=P+lsP0KE P. 178 
iiS L=HuT L = NEXT iI^L-HOT LsHEXT J:P-^F-r31 

120 FOR J=l TO 32sp=p+lsP0KE P. 179s NEXT J 

121 REM PLACE MEN ON BOARD 

122 FOR J=l TO Ss Z1=P1 + 128*'-.: J~l > 

123 FOR K=l TO 8 s Z=Z1 +4*';:K-1 > 

124 IF BD<J.K>=0 THEN 127 

125 POKE Z.BD<J.K>sF:-OKE Z+1 . BD< J. K> + 1 

1 26 POKE Z+64 . BD < J . K > +2 s POKE Z +65 . BD < J . K > +3 
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127 NEXT K^J 

12S DATA 0. 1 . 1 :. 15:. 4:. 2:. 14 

129 DATA 128:. 224. 128. 240.32.64. 112 

130 DATA 2.2.2.4.24.32.63.0 

131 DATA 64.64.64.32.24.4.252.0 

132 DATA 0.1.15.4 . 2 . 1 4 .4.2 

133 DATA 0.128.240.32.64.112.32.64 

134 DATA 2.2.2.4.24.32.63.0 

1 35 DATA 64 , 64 . 64 . 32 . 24 , 4 . 252 . 

1 36 DA T A .0.13.13.15.4.4.4 

13? DATA 0.0.176.176.240.32.32.32 

1 38 DATA 4 . 4 . 4 :■ 4 .8.16.31. 

139 DATA 32.32.32.32.16.8.248.0 

140 DATA 0.1.2.4.2.14.2.2 

1 4 1 DATA . 1 28 . 64 . 32 . 64 :. 1 1 2 . 64 :■ 64 

142 DATA 2.2.2.4.8.16.31.0 

1 43 DATA 64 . 64 . 64 . 32 . 1 6 . 8 . 248 . 

1 44 DATA . .0.3.12.55. 57 . 2 

1 45 DATA . . 1 92 . 48 . 8 :. 4 . 4 . 4 

146 DATA 4.8.8.4.8.16.31.0 

1 47 DATA 8 . 1 6 . 1 6 . 32 . 1 6 . 8 . 248 . 

1 48 DATA . . .0.3.4.4.2 

1 49 DATA . . . . 1 92 . 32 . 32 . 64 

150 DATA 14.2. 2. 4. 8.16.31. 

151 DATA 112.64. 64 .32.16. 8 . 248 . 

1 52 DATA 85 . 1 69 . 87 . 161. 79 . 1 64 . 82 .174 

1 53 DATA 85 . 1 38 . 229 . 1 38 .245.42. 69 .114 

1 54 DATA 82 . 1 70 . 82 . 1 64 . 88 . 1 60 . 63 . 1 70 

1 55 DATA 69 . 74 . 85 . 42 . 25 . 4 . 253 . 1 70 

1 56 DATA 85 . 1 6 1 . 79 . 1 64 . 82 . 1 74 . 68 . 1 62 

1 57 DATA 85 . 1 30 . 245 . 42 . 69 . 1 1 4 . 37 . 74 

1 58 DATA 82 . 1 70 . 82 .164 . 88 . 1 60 . 63 . 1 70 

1 59 DATA 85 . 74 . 69 .34.25.4. 253 . 1 70 

1 60 DATA 85 . 1 70 .77.173.79.1 64 . 68 . 1 64 

161 DATA 85 . 1 70 .181.1 78 .245.42.37. 42 

1 62 DATA 68 . 1 64 . 68 . 1 64 .72.144 . 95 . 1 70 

1 63 DATA 37 .42.37.42.21. 1 .249.1 70 

1 64 DATA 85 .171. 86 . 1 72 . 82 . 1 74 . 66 . 1 62 

1 65 DATA 85 . 1 70 . 85 . 42 . 69 . 1 22 . 69 . 74 

1 66 DATA 82 .162. 82 .164.72.144. 95 . 1 70 

1 67 DATA 85 .74.85.42.21.10 . 249 . 1 70 

1 68 DATA 85 . 1 70 . 84 .163.76.1 83 . 57 . 1 30 

1 69 DATA 85 .42.1 97 . 50 .9.4.5.4 

1 70 DATA 68 . 1 63 . 88 . 1 64 . 72 . 1 44 . 95 . 1 70 

1 7 1 DATA 9 . 26 .37.34.21.10. 249 . 1 70 

1 72 DATA 85 . 1 70 . 85 . 1 68 . 83 . 1 64 . 84 . 1 62 



173 DATA S5:. 170. 85 r 10. 19? n 42, 37. 74 

174 DATA 78:. 162:. 82. 164. 72. 144.95. 170 

1 75 DATA 117. 74 . 69 . 34 . 17.1 . 249 .170 

1 76 DATA 1.1.1.1.1.1.1.1 

1 77 DATA 85 . 1 78 . 85 . 1 78 . 85 . 1 78 . 85 . 1 78 

178 DATA 128.128.128.128.128.128.128.128 

179 DATA 255.8.0.0.0.8.8.8 

1 80 DATA .8.0. . . . 8 . 255 

280 REM SCREEN DUMP TO PRINTER 

2 1 N 1 =3*2 -- 1 NT < 6*RND •:: 1 > > 

220 POKE . 260 . s POKE 261.0: POKE . 62 ' POKE 1 . 27 
230 POKE 2. 205 SPOKE 3. 12s POKE 4. 224s POKE 5.201 

240 :^^=usR <: e > s poke i . 65 s ;k=usr < > 3 poke 1.2s h^usr < > 

250 FOR J=l TO 29S C:l=64*J-3968s FOR L=="8 TO --1 

260 FOR K=0 TO 59s IF K-- 15=INT'::K.-15> THEN OOSUB 388 

270 CN=PEEK<L--8*<255-PEEK<C1+K>>>sF0R M=7 TO STEP -1 

280 POKE l.Nl*SGN<CH AND 2'-ri:;' s K=:IJSR<0> s NEKT M.K 

290 POKE 1.135 ;:::=USR < > s NEXT L . J s POKE 1.12s ;::;=USR < > s RETURN 

300 POKE 1.27s :K=USR C 8 > s POKE 1.753 K=USR < 8 > 

310 POKE 1. 120s;^=USR<0> SPOKE 1 . 05 :K=rUSR CO;' s RETURN 

392 DATA . 1.7. 1 . 15.7.3. 15 

393 DATA O . 1 28 . 224 . 1 28 . 24© . 224 . 1 92 . 248 

394 DATA 3.3. 3 . 7 .31. 63 . 63 . 8 

395 DATA 192.192.192.224.248.252.252.8 

396 DATA . 1 . 1 5 . 7 .•: 3 . 1 5 . 7 . 3 

397 DATA O . 1 28 . 240 . 224 . 1 92 . 248 . 224 . 1 92 

398 DATA 3.3.3.7.31.63. 63 . 8 

399 DATA 192.192.192.224.248.252.252.8 
■400 DATA 0.0.13.13.15.7.7.7 

401 DATA 0.0.176.176.240.224.224.224 

402 DATA 7.7.7.7.15.31.31.0 

403 DATA 224 . 224 . 224 . 224 . 240 . 248 . 248 . 8 

404 DATA 0.0.1.3.7.3.15.3 

405 DATA 0.0.128.192.224.192.240.192 
466 DATA 3.3.3.7.15.31.31.9 

407 DATA 192.192.192.224.240.248.248.0 

408 DATA 0.0.0.3.15. 63 . 57 . 3 

409 DATA 8 . 8 . 1 92 . 248 . 248 . 252 . 252 . 252 

410 DATA 7. 15. 15. 7. 15.31 . 31.8 

4 1 1 DATA 248 . 248 . 240 . 224 . 240 . 248 . 248 . O 

412 DATA 0.0.0.8.3.7.7.3 

4 1 3 DATA . . .8.1 92 . 224 . 224 . 1 92 

414 DATA 15.3.3.7.15.31.31.8 

415 DATA 240.192.192.224.240.248.248.0 

4 1 6 DATA 85 . 1 69 . 87 .161. 79 .167. 83 . 1 75 

4 1 7 DATA 85 . 1 38 . 229 . 1 38 . 245 . 234 . 1 97 . 242 
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418 
419 
420 
421 

423 
424 
425 
426 
427 

429 
430 
431 
432 
433 
434 
435 
436 
437 
43S 
439 
REIAD 



DATA 83 .171:. 83 .167 . 95 .191 63 . 1 79 
DATA 1 97 . 202 .213. 234 . 249 . 252 . 253 . 1 70 
DATA 85 .161. 79 . 1 67 . 83 .175.71.1 63 
DATA 85.130.245.234.197.242.229. 202 
DATA 83 . 1 7 1 . 83 . 1 67 . 95 . 1 9 1 . 63 . 1 70 
DATA 213. 202 . 1 97 . 226 . 249 . 252 . 253 . 1 70 



DATA 
DATA 
DATA 
DATA 22 
DATA 85 
DATA 85 
DATA 83 
DATA 21 
DATA 85 
DATA 85 



5 . 1 70 .77.173.79.1 67 . 71.1 67 
5. 170. 181. 178.245.234.229.234 
1 . 1 67 .71.167. 79 . 1 59 . 95 . 1 70 
29 . 234 . 229 . 234 . 245 . 250 . 249 . 1 70 
5. 170. 



. 1 7 1 . 87 . 1 63 . 79 . 1 63 
. 42 . 1 49 . 202 . 229 . 202 . 245 . 202 
. 1 63 . S3 . 167. 79 . 1 59 . 95 . 1 70 
3 . 202 .213. 234 . 245 . 250 . 249 . 1 70 
. 1 70 . 84 .163. 79 .191 . 57 . 1 3 1 
. 42 . 197. 242 . 249 . 252 . 253 . 252 
DATA 71.1 75 . 79 . 1 67 . 79 . 1 59 . 95 . 1 70 
DATA 249 . 250 .245 . 226 . 245 . 250 . 249 . 1 70 
DATA 85 . 1 70 . 85 . 1 68 . S3 . 1 67 . 87 .163 
DATA 85. 170.85. 10. 197.234.229.202 
DATA 79 . 1 63 . 83 . 1 67 . 79 . 1 59 . 95 . 1 70 
DATA 245 . 202 . 1 97 . 226 . 24 1 . 250 . 249 . 1 70 
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Fig. 6-2. A chessboard. 
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Fig. 6-3. A chessboard with chessmen. 



MATHEMATICALLY DEFINED ART 

Computers are mathematical tools and as such 
they can compute numbers at high speed. Comput- 
ers can use their talents to draw pictures, provided 
that those pictures are defined mathematically. If a 
program can be written that will enable the com- 
puter to use numbers to draw images, the artist will 
have a new tool at his disposal. 

We will now look at a few BASIC programs 
that display realistic and abstract art. By realistic, 
we mean resembling reality, the world as we see it. 
By abstract, we mean an exaggeration of realitv, an 
unreality, if you will. Both have their proper place 

lit ai t. 

A Realistic Low-Resolution Program in BASIC 

Program 8, the low-resolution perspective 
line plotter in Chapter 4, which showed a pyramid, 
a cube, and two diam.onds, is an example of a realis- 



tic low-resolution art program. It is considered 
low-resolution because we used asterisks instead 
of special graphic characters to show positions of 
points. Please refer back to it as an example of 
realistic low-resolution art. 

A Realistic High-Resolution 
Program in BASIC— Program 19 

Figures 6-4 to 6-6 are show figures produced 
by a realistic high-resolution art program. Although 
the images in Figures 6-5 and 6-6 are larger than 
that in 6-4, they Hre of sli^htb'' iow^r resolution. 
They also have an additional feature; they contain 
three types of shading: solid black, gray, and white. 
This is a trinary color scheme, not a simple binary 
one. The solid black represents the void of space, 
and the gray, the black areas of the ship. The white 
areas are the white area of the ship. Figure 6-6 is a 
longer version of Figure 6-5. It is 50% longer. 
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10 REM HIQH RESOLUTION REALISTIC ART 

20 REM WRITTEN BV TIMOTHV J. O'MALLEV 

30 REM COPYRIGHT 1982n TAB BOOKS INC. 
40 REM 

50 PRINT CHR*'::i2::' 

60 GOSUB 3000s REM BLANK GRAPHICS 

?0 GOSUB 2000 s REM PLACE GRAPHICS ON SCREEN 

80 GOSUB 1000s REM DEFINE GRAPHIC SET #1 

90 GOSUB 10005 REM DEFINE GRAPHIC SET #2 

100 PRINT CHR*'::i2>5 sREM BLANK SCREEN '::SOME CAN USE CLS::' 

110 GOSUB 4000 5 REM DEFINE TRINARV GRAPHICS 

120 GOSUB 5000 5 REM READ DATA FOR IMAGE 
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END 


200 
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210 


DATA 


220 
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230 


DATA 


240 
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250 


[;:i|iiXi:::i 


260 
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340 
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400 
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420 
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450 
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460 


DATA 


470 


DATA 


500 


DATA 


510 


DATA 
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520 DfiTfi r . 1 28 ^ 1 28 ^ 1 9^? . 64 
530 DATA 104 

540 DATA 24 . 54 38 . 32 . 32 . 63 . 32 . 96 . 96 p J. 7 1 . 1 1 5 . , 2 1 6 . 255 . 32 . 32 
550 DATA 32 , 96 . 32 , 32 . 32 . 224 32 r 48 . 48 
560 DATA 99 

57'0 DATA 29 . 1 . 1 1 , 3 . 3 . 96 . 224 . 224 , 255 . 224 . 224 r 224 p 224 . 32 , 32 
. 32 

530 DATA 255 , 32 , 32 .32.32.48.56. 56 .252 . 60.60.62 . 62 
590 DATA 96 

600 DATA 49 . 7 . 7 . 1 5 . 1 5 . 23 . 23 . 39 . 72 . 224 . 224 . 255 . 224 . 224 . 224 
6 1 DATA 224 . 32 . 32 . 32 . 255 .32.32.32. 32 . 32 . 63 . 63 . 255 . 63 . 63 
620 DATA 63 .63.32.0.0. 1 28 . 1 28 . 64 . 64 . 32 . 1 6 
630 DATA 76 

640 DATA 68 .1.6.27.108.1.6.27.1 68 .176.192.0.0.1 76 .192 
650 DATA . 00 . . . . . 32 . 63 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 255 . 32 . 32 
. 32 . 32 

660 DATA 32.32.32.224.32.32.32.32.32.32.108.27.6.1.0.0.0,0.0 
. 

670 DATA 192.176.108.27.6.1.0.0.0.0.0.0.192.176 
680 DATA 48 

690 DATA 79.1.3.6.7.7.6.3.0.176.64.128.255.255.1.254.1.0.0.0 
. 255 

700 DATA 255. 255. 64. 233. G. S. i . 254. 254. 254. 2. 13G. 127. 192. S. 

.0.0 

710 DATA 0.0.255.32.32.112.112.112.112.112.240.24.4.7.3.3.2 
.2.0 

720 DATA 0.0.255.255.255.0.15.0.0.0.255.255.252.19.252.108 

.22. 11 
730 DATA 255.255.3.247 
740 DATA 73 

750 DATA 33.127.3.3.0.0.0.0.0.127.111.198.246.227.65.127.0 
. 255 

760 DATA 119.115.115.254.252.255.32.247.182.30.120.56.16.240 
770 DATA 0.240 
780 DATA 183 

1080 REM DEFINE GRAPHICS 

1010 A=-10255ri=0 

1020 FOR J==l TO 15SREAD ZsH=0 

1030 FOR K=l TO ZSA=AH-1SIF M<0 THEN READ N 

1040 POKE A.H 

1050 HEKT KsM=N0T(;i1>sHEKT J 
1060 RETURN 

2000 REM PLACE GRAPHICS OH SCREEN 

2010 FOR Q=192 TO 1216 STEP 512 
2020 FOR P=Q-396S TO Q-3920 STEP 16 
2030 L=127 
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2040 FOR J=P TO P+511 STEP 64 

2050 FOR K=0 TO 15 

2060 L=L-i-l 

2070 POKE <J+K>.L 

2080 HEKT K.JpP.Q 

2090 RETURN 

3000 REM BLANK GRAPHICS 

3010 FOR J=-1024 TO -1 
3020 POKE J.0 
3030 NEXT J 
3040 RETURN 

4000 REM DEFINE TRINARV GRAPHICS 

4010 FOR J=="1024 TO - 1 s POKE J. OsNEIKT J 
4020' FOR R= 1 TO 4 s J==0 s M^=3-- C R- 1 > 
4030 U=0 

4040 FOR K=l TO M s N=J*8- 1 924 s N 1 =N- < R >2 > *4 
4050 N2=N+3-':;R>2>*4s IF U=0 THEN 4120 
4060 IF 0=1 THEN H3=160+';R--2=IHT(:R.- 2> ;>*150 
407^0 IF 0=2 THEN H3=240+<R.--2=INT<R--2.:i >*225 
40S0 Z=0!iFOR P=N1 TO N2 

4090 I FO== 1 THEN POKEP , < PEEK < P > OR < N3--- < 1 -Z > > > " 2=N0TZ s eOT04 1 1 
4100 POKE P. c:PEEK<P> or N3> 
4110 NEKT P 

4120 J=J+ 1 : NEXT KsU=U+ls IF U<3 AND J<81 THEN 4040 
4130 IF 0=13 AND J<S1 THEN 4030 
4140 NEXT Rs RETURN 

5000 REM READ DATA FOR TRINARV IMAGE 

5010 FOR J=l TO 20 s FOR K=l TO 27 

5020 READ XX : PR I NT TAB < 20 > 5 CHR* < XX > 5 

5030 NEXT K SPRINTS NEXT J s RETURN 

6000 REM DATA FOR TRINARV IMAGE 

60 1 DATA 1 28 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 

6020 DATA 1 64 . 1 68 r 1 65 .137.1 28 . 1 28 :■ 1 28 1 28: . 1 28 1 28 :. 1 28 

6830 DATA 128. 128. 128. 128. 128 

6040 DATA 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 94 
6050 DATA 204. 208. 178. 168. 137. 128. 128. 128. 128. 128. 128 
6060 DATA 128.128.128.128.128 

6070 DATA 1 28 . 1 28 .128.128.1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 67 . 1 72 
60S0 DATA 172.1 99 . 208 . 1 68 .165.1 28 .128.1 28 . 1 28 . 1 28 . 1 28 
6090 DATA 128.1 28 . 1 28 . 1 28 . 1 28 

6 1 00 DATA 1 28 .128.1 23 . 1 28 . 1 28 . 1 28 .128.1 28 . 1 58 . 1 80 . 1 99 
6 1 1 DATA 208 . 284 . 208 . 208 . 1 77 . 1 28 . 1 28 . 1 28 .128.1 28 .128 
6 1 20 DATA 128.1 28 . 1 28 . 1 28 . 1 28 

6130 DATA 128. 128. 128. 128. 128. 128. 128. 128. 195. 177.204 
6 1 40 DATA 204 .284.177. 208 . 1 78 . 1 38 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 
6150 DATA 128.128.128.128.128 
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6160 DATA 128. 128. 128. 128. 128. 128. 128. 158. 268. 178. 268 

6170 DATA 208. 208. 178. 208. 178. 138. 128. 128. 128. 128. 128 

6180 DATA 128.128.128.128.128 

6190 DATA 128. 128. 128. 128. 128. 128. 128. 158. 172. 169. 172 

6200 DATA 172. 172. 169.268. 178. 168. 128. 128. 128. 128. 128 

62 1 DATA 128.1 28 . 1 28 . 1 28 . 1 28 

6220 DATA 128. 128. 128. 128. 128. 128. 128. 158.288. 178.208 

6230 DATA 208 . 268 . 1 78 . 208 . 1 78 . 1 68 .137.1 28 .128.1 28 . 1 23 

6240 DATA 128.128.128.128.128 

6250 DATA 1 28 . 1 28 . 1 28 . 1 28 .128.1 28 . 1 28 . 1 58 . 208 . 1 78 . 268 

6260 DATA 288.208. 178.208. 168. 168. 138. 128. 128. 128. 128 

6270 DATA 128.128.128.128.128 

6280 DATA 128. 128. 128. 128. 128. 128. 128. 158.204. 177.204 

6290 DATA 204 . 204 . 1 77 . 208 . 1 68 . 1 68 . 1 95 . 1 37 

6300 DATA 128.128.128.128.128.128.128.128 

63 1 DATA 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 23 . 1 58 . 288 . 1 78 . 203 

632:0 DATA 208 . 203 . 178. 283 . 1 68 . 1 68 .171. 204 . 1 37 . 1 28 . 1 23 

6330 DATA 128.128.128.128.128 

6340 DATA 128.128.1 28 . 1 28 . 1 28 . 1 28 .123.167.1 72 .169.172 

6350 DATA 1 72 . 172.1 69 . 288 . 1 98 . 288 . 288 . 204 . 1 69 . 1 95 . 1 64 

6360 DATA 128.123.123.128.128 

6370 DATA 1 28 . 1 28 . 1 28 . 1 28 . 1 28 . 1 55 . 1 94 . 1 77 . 203 . 1 78. 203 

6330 DATA 208 . 208 . 1 78 . 208 . 1 98 . 288 . 283 . 288 . 288 . 285 . 1 80 

6390 DATA 195.164.137.128.128 

6400 DATA 1 28 . 1 23 . 1 28 . 1 55 . 1 67 . 287 . 203 . 1 78 . 288 . 1 73 . 208 

64 1 DATA 208 . 268 . I 78 . 208 .198. 288 . 283 . 283 . 288 . 208 . 283 

6420 PATA 208.204.196.137.128 

6430 DATA 128.1 23 . 1 64 . 284 . 208 . 288 . 283 . 1 69 . 1 77 . 1 68 . 204 

6440 DATA 204 . 204 . 204 . 1 68 . 1 38 . 288 . 203 . 208 . 288 . 208 . 1 72 

6450 DATA 172. 172. 169. 169. 128 

6460 DATA 1 28 . 1 67 . 287 . 208 . 288 . 1 72 . 1 72 . 1 95 . 287 . 1 78 . 208 

6470 DATA 208 . 283 . 288 . 1 73 . 285 . 1 69 . 1 68 . 1 68 . 1 68 . 1 68 . 1 77 

6480 DATA 284.204.168.163.129 

6498 DATA 1 58 . 1 95 . 284 . 284 . 284 . 1 68 . 284 . 1 81.1 72 . 1 68 . 1 72 

6508 DATA 1 72 . 172.1 72 . 1 78 . 288 . 1 68 .172.172.172.1 42 . 1 32 

6510 DATA 132.132.128.128.128 

6528 DATA 1 23 . 1 32 . 1 32 . 1 32 . 1 68 .131.1 96 . 287 . 1 69 . 1 68 . 1 72 

6538 DATA 285. 172.284. 177. 168. 168. 142. 128. 128. 128. 128 

6540 DATA 128. 123:. 128. 123. 128 

6550 DATA 1 28 . 1 23 . 1 28 . 1 28 . 1 68 . 1 72 . 1 32 . 1 32 . 1 3 1 . 1 7 1 . 1 72 

6560 DATA 172. 141. 132. 129. 123. 128. 123. 128. 128. 128. 128 

6570 DATA 128.123.128.128.128 

6588 DATA 128. 123. 123. 128. 128. 128. 128. 128. 123. 132. 132 

6590 DATA 1 32 . 1 29 . 1 28 . 1 28 . 1 28 . 1 28 . 1 :23 . 1 28 . 1 28 . 1 23 . 1 23 

6600 DATA 128.128.128.123.128 
READV 
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Fig. 6-5. A shortened trinary-colored space shuttle. 



Let's look at the program listing. Lines 10-40 
are remarks about the title and credits for the pro- 
gram. After a clear screen command in line 50, the 
computer goes to the subroutine that starts at line 
3000. This sets all the user-defined graphic charac- 
ters to zero, or blank. Line 70 goes to the sub- 
routine at line 2000 which pokes those blank 
graphic characters on tlie screen. Lines 80 and 90 
define the graphic character set that is currently 
displayed on the screen. The char acters change on 
the screen as the data statements are read for the 
points of the graphic characters. These are binary 
graphic characters. Line 100 blanks the screen 
again. Line 110 defines the trinary graphic charac- 
ters for the Figures 6-5 and 6--6. Line 120 reads the 
data for the image and prints the characters on the 



screen. Line 190 ends the program. Lines 200-780 
are data statements for the first set of images. 
Lines 1000-1060 define the graphic characters for 
the binary images. Lines 2000-2090 place them on 
the screen. Lines 3000-3040 blank those graphic 
characters. Lines 4000-4140 define the trinary 
graphics. Lines 5000-5030 read data for the trinary 
image. The irambers in tlie data statements in hiies 
6000-6600 are the code numbers of the graphic 
characters used in the image. 

An Abstract Low-Resolution 

Program in BASIC— Program 20 

This program prints low-resolution abstract 
figures using asterisks as shown in Figures 6-7 and 
6-8. 
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Fig. 6-6. A trinary-colored space shuttle. 
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Fig. 6-7. Two overlapping polar coordinate figures. 



10 REM ABSTRACT. LOW-RESOLUTIOH ART 

20 REM UIRITTEI-I B\> TIMOTHV J„ O^MALLEV 

30 REM COPS-'RIQHT 1982, TAB BOOKS INC. 

40 REM 

45 QOSUB 500s REM DISPLAS' AND QUESTION 

50 DIM < 500 > V < 500 > s REM RESERUE SPACE FOR UP TO 508 POINTS 

60 K==0 5REM SET POINT COUNTER TO ZERO 

70 READ NsREM NUMBER OF DIFFERENT FIGURES PLOTTED 

80 PRINT CHR*<12>5 s FOR H=l TO N 

90 READ M , R , P , S , D s REM M AGH I F I CAT I ON , ROT AT I ONS , PO I NTS , S I Z I NG 
D 1 :5P 

100 C==6.28319*RSREM TOTAL ROTATION IN RADIANS 
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lie FOR J=C.--P TO C STEP C.--P 

1 20 L=ABS < S I N < . 5*M*J > > s REM D I STANCE OF PO I NT FROM OR I G I N 

130 K>K+lsREM INCREMENT COUNTER 

1 40 K < l< > =L*2S*C0S < J+D > s REM OR I G I HAL NOR I ZOHTAL F'OS 1 T I OH 

150 ',' < l< > =L* 1 4*S I H < J+D > s REM OR I G I HAL UERT I CAL POS I T I ON 

160 IF s=i THEN ;^^;;l<>=:^^::K>*J^■••C" vac':==V'::i<>* J.---C 

170 IF S=~l THEN X'::i<>=;K<l<>*.:; 1--J/C> " '•/<I<>:=V<I<>*< 1 J.--C;;' 

1 80 X < K > = I NT < X < l< y +28 . 5 > 

1 9 'r' < K y = I N T >: V c i< y + 1 4 . s > 

200 NEXT J.H 

210 FOR J^=l TO l< 1 

220 FOR H==J+1 TO l< 

230 IF ','CJ>>V';H> THEN 280 

240 IF S'CJXVCH;:' THEN 260 

250 IF J::'<=K':;H::' then 230 

260 f^-~r< < J > s :■■! '■; J y ■->< i-i ) " x < i i > "A 

270 B='r' c: J > 5 w <: J y ■■■■=•:• < h > s w >- h > ^^E: 

;2S0 NE^n" H. .:r 

2 9 J ~= 1 s i3 S U B 3 '5 Q 

300 FOR J=2 TO K. 

310 IF V< J- 1 >>'•,'< J:' Tl lEN GOSUB 3!50 

320 IF X':;..J><:>X< J 1> AND 't'C J > J 1> THEN QOSIJB 390 

330 HEKT J 

34C:i END 

350 FOR H=:'i'c;j> TO 'I'CJ- l ) 1 

360 PRINT 

:370 NEXT I-I 

380 RETURN 

390 PR I HI I'ABC^^':. J > " " 

400 RETURN 

410 DATA 3 3 REM N 

420 DATA 6. 1 , 128:. 0, 

430 DATA 3 . 1 . 60 :. . 1 . 04?'2 

■44-0 DAT 1-1 ., 1 1 !5i;;:i 

500 REM DISPI A'r' PiND QUESTION 

510 PRII-TT CHR*':; 12> ; 

1520 F^'R I NT !i PR I HT s F'R 1 1 IT " PR I N T 

530 PRINT TAB<15>; 

540 PRINT "ABSTRACT. LOW RESOLUT ION ART" 

550 PRINT TAB<14>; 

560 PRINT "WRITTEI-I BS' TIMOTHV J, 0M1ALLEV" 

570 PRINT TAB < 14::'!! 

580 PRINT "COPVRIGHT 1982, TAB BOOKS INC," 

590 PR I l-TT " PR I HT ii PR I NT 

600 INPUT "DO VOU WANT INSTRUCTIONS <VES OR NO>";AN* 

610 IF AN:|:="NO" THEN RETURN 
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620 PF?1HT 

630 PRINTS PRINT 

iS 4 F' R 1 H T " T hi i s i-- r o s a. m f-- r i r i t s o u t f- o 1 a r o o r d i n a t e 
plots. " 

6 '5 P R I N T ' ' T' h e i- e a r e s e ' e r a 1 i=- a r a m e t e r s s N . ui h i c h i s t h 
number" 

iS iS P F? I N T " o f d i f f e r e n t f i 3 u r e s f- 1 o 1 1 e d t o s e t h e r ■! M w h i c h is" 
6 7 P R I H T "a m u 1 1 1 p 1 i c a t i o n f a c t o r f o i- t h e r a d i a n s o f the" 
680 PRINT "rotation!! R. which is the number of complete " 
6 9 & P R I N T ' ' I o t a t i o n s ? F' w h i c h i s t h e n u iti b e r o f f o i n t s in" 
7 P R I N T " e a c I 'l f i s u r e :i S . w h i c h i s f o i- 3 r o w i i-i 3 o r s h r i n k i n 3 ' ' 
7 1 P R I N T " 1= i 3 u r e s a s t h e y r o t a t e a b o u t t h e o r i 3 i ri ; a n d D . ' ' 
7 2 P R I H T ' ' h 1 c h i s t h e d i s f 1 a c e m e n t i n r a d i a n s , o f t h e ' ' 
730 PRINT "figure about the origin when plotted." 
7 4 P R I N T s P R I N T P R I N T 

750 I HPU T " W l-ie n f i n i s hed read i n-3 . f- i-ess RE:TURN - OK "JAN* 

760 RETURN 

READV 



* 



:t: * * 

* 

:+: * 

* ** 

:+::+: A'. * 
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* 

:+; ** 
* * 

* * 

* * * 

* 



* * 
;+; * 



Fig. 6-8. A single polar coordinate figure. 
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Let's look at the program. Lines 10-40 give the 
title and credits in remark statements. Line 45 is a 
subroutine call to line 500. Line 50 is a dimension 
statement which reserves memory space to hold 
the coordinates for up to 500 points. Line 60 sets 
the point counter to zero. Line 70 reads the number 
of different figures to be plotted on the same graph. 
Lines 80-200 contain two nested loops which read 
in the data and compute the coordinates of the 
points. The loops also sort the points so that they 
can be printed from top to bottom, and from left to 



short program that we will examine now. These 
figures resemble moire patterns but were produced 
in a different way. The program is very simple. 

Lines 10-40 give the title and credits. Line 50 
calls a subroutine at line 300 which sets up a 
machine-language subroutine to pass numbers to 
the printer. Line 60 calls the main program at line 
100. Line 70 ends the program. We can change tliis 
program to a low-resolution program that does not 
use a machine-language subroutine, but let's look at 
the main program a bit first. 



10 REM MOIRE PATTERNS 

20 REM URITTEN BV TIMOTHV J. O'MALLEV 
30 REM COP'r'RiaHT 3.982, TAB BOOKS INC. 
40 REM 

50 GOSUB 300; REM INITIALIZE PROGRAM 
60 GOSUB 100: REM MAIN PROGRAM 
70 END 

100 REM MAIN PROGRAM 

105 FOR P=0„ 1 TO 1.0 STEP 0,1 
110 FOR V=--240 TO 240!:V2=V*V 

120 FOR ;K=--240 to 239!! IF IK ■■-80= I NT 'CK-- 80 > THEN GOSUB 400 
130 R- 1 NT < < 1 E7* < V2-h-;K*X > ) ■-■p > 

140 IF R.--2-IHT<R.--2> THEN POKE 1 , H 1 « XX=USR < 8 > s GOTO 178 

1 60 POKE 1 r s KK~USR < O > 

1 70 NEKT K T, POKE 1 . 1 3 !i XX=USR < O > i! NEXT V !! POKE 1,12! XX=USR •:: O > 
180 NEXT P!!END 

300 REM INITIALIZE PROGRAM 

310 Nl=2sREM PIN POSITION USED FOR PRINTING 

320 POKE 260 :. !! POKE 26 1,0s POKE 8 , 62 s POKE 1 , 27 

330 POKE 2 , 205 !! POKE 3,12!! POKE 4 , 224 POKE 5,201 

340 KX=USR < > POKE 1 , 65 5 XX=USR > : POKE 1,1: XX=USR CO) 

350 RETURN 

400 POKE 1,27: XX=USR < O > s POKE 1 , 75 : XX=USR < O > 

4 1 POKE 1,80: ;:-:;X=USR ■:; © > : POKE 1 , 8 : XX=USR < 8 ::■ : RETURN 

READ'-r' 



right. Lines 290-400 include the lines that print out 
the final figures. The data statements in lines 410- 
440 contain information concerning what to plot. 
Lines 500-760 give the instructions. 

An Abstract High-Resolution 
Program in BASIC— Program 21 

Figures 6-9 to 6-17 were all made by ttie same 



In lines 100-180 of the main program, we have 
three loops that are nested. The first loop, contain- 
ing the variable P, is for the power of a number in 
the program. The Y and X loops are for the X and Y 
coordinates. Line 130 computes R, which is the 
integer of 1E7 times X squared plus Y squared to 
the power of P. Line 140 says that if R is an even 
number, print a dot; line 160 says otherwise, print a 
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blank dot. It's that simple! You could change the 
program so that it would print an asterisk if R was 
even and a space if R was odd. Then you would not 
need to use high-resolution graphics or machine- 
language subroutines to pass numbers to the 
printer. In all of these figures the dark points are 
where even numbers are found, and the light points 
are where odd numbers are found. 



Another Abstract 

High-Resolution Art Program— Program 22 

Figure 6-18 shows the result of rotating and 
shrinking a triangle. This figure was made by dis- 
playing user-defined graphic characters on the 
screen and then doing a screen dump to place the 
figure onto paper. The triangle is turning clockwise 
as it is shrinking. Let's briefly look at tlie program. 



10 REM HIGH RESOLUTION ABSTRACT ART 

20 REM WRITTEN BV TIMOTHV J. O'MALLEV 

30 REM COPVRIGHT 1982:. TAB BOOKS INC, 

40 REM 

50 GOSUB 300s REM INITIALIZE UARIABLES 

80 GOSUB 800 s REM TRANSLATE VnZ TO HpU 

90 GOSUB 500: REM BLANK GRAPHICS 

100 GOSUB 1 200 s REM DRAW LINES CONNECTING POINTS 

110 GOSUB 1 600 s REM DUMP GRAPHICS TO PRINTER 

290 END 

300 REM INITIALIZE UARIABLES 

305 I P=72 
307 IA=120 

310 D I M I ■:: I A > . -A < I F' > ' / < I P > r Z < I P > p R < 3 > . U < I P > . H < I P > 
320 FOR J=l TO IP STEP 3 

325 M^ErtP < < 300- J > 1 00 > 

326 0=J^--15 

330 :--:i::.j;:'==M*SIN'::0> 

331 V':;j>=0 

3 3; 2 Z < J ':> ~ M * C s o > 

334 X < J + 1 > = M * S I N < 2.09 4 4 + > 

335 V'M+l >==0 

336 ZX J + 1 > = M * C S < 2 , 9 4 4 + > 

337 X J +2 > "M*S I N < 4 . 1 888+0 ::• 

338 V<J+2;'"0 

3 3 9 Z(.J + 2 > " M * C S ( '4 , 188 8 +■ > 

340 NEXT J 

350 Il==ls I2=2!i 13-3 

380 FOR J=i TO I A STEP 5 

381 I'::J) = I1 

382 ICJ+1>^=I2 

384 I<J+3>-Il 

385 I<J+4>=0 

386 1 1 == 1 1 +3 1; 1 2= 1 2+3 1 3^= 1 3+3 
4EI0 NEXT J 

420 R < 1 > = 1 8 s R < 2 > -24 s R < 3 > = 1 4 
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430 K C > = 1 !!'■.•'< > := 5 " Z > 7' 

440 F=. 1 s G=100 

450 3=^=1 5 T= IP 

460 B:il?=="Z" 

470 W= 1 5 . 875 s U=7 . 875 s REM WIDTH AMD HEIGHT OF SCREEN 

480 E=:=0.4sREM ROTATION INCREMENT 

490 RETURN 

500 REM BLANK GRAPHICS 

510 PRINT CHR*<12>5 s REM BLANK SCREEN 

520 POKE • ■■3968 .-32 5 REM ERASE CURSOR FROM SCREEN 

530 FOR .J= -i024 TO -I 

540 POKE J.0 

550 NEKT J 

560 FOR J=0 TO 127!! REM PLACE GRAPHICS ON SCREEN 

570 POKE ( J- 324e-i-4S*II'iTCT.-16> > . J-i 128:^ 

580 NE^<T J 

590 RETURN 

600 REM ROTATE POINTS ABOUT Ai^NS 

610 FOR -J=S TO T 

i:E.20 I F B:;l?= " Z " THEN i4 1 ^^IK k J ) s A;^==R < 1 > s 1^3=='/ J > s i-i^-L^R 2 > 

630 IF B-*="'v'" THEN Al=X':;.j::' 5 A2=Ra > s A3=ZC.T> : A4=R<3> 

640 I F B*= " K " THEN A 1 =V .J > s A2=R C 2 > s A3=Z •:: .J > s A4=R ■:: 3 ::■ 

659 P1=A1-A25P2=A3 A4 

660 L=SQR < P 1 *P 1 +P2*P2 > 

670 IF P2=e THEN A5-0-- '::P1^< 8 >*3. 141593 

6!E!0 IF P1=0 THEN A5=S6H';:P2>*1 . 570796 

690 IF P2O0 AND PI 08 THEN A5=ATN<:P2.-P1 >-'::Pl<0>*3,. 141593 

700 A5=A5-H-E 

710 IF B*= " Z " THEN K < J > =L*COS ■:: A5 > +R ( 1 ::■ s V < J > =L*S I N < A5 ::• +R <. 2 > 

720 I F B*= " V " THEN y. <. J > =L*COS ( A5 ::■ -i-R ( 1 > s Z < J > =L*S I H < A5 > +R C 3 > 

730 IF B*=":K" then V<J>=L*C0S<A5>■^-R■::2>5Z'::J::■=L*SIH•::A5>•^-Rc:3> 

740 NEKT .T 

750 RETURN 

800 REM TRANSLATE X,VSZ TO H,U 

810 FOR .J=l TO IP 

820 DV=V':: J>~-S'<0::'! IF DVO0 THEN PRINT "DECREASE Vt:0> " : STOP 
!330 C:■^■^=K■:: J>--X'::0::' 
840 DZ=Z':: J>-Z<0> 
S5S y < J > =G*ftTN < F^i-^DZ- 'D V ) : REM UERT I C AL SCREEN PCS I T I GN 
860 H';:.J::'=G*ATN'::F*D:K.-D't'>sREM HORIZONTAL SCREEN POSITION 
870 NEKT J 

880 M I NU=U •:; 1 > s MA;KU=U < 1 > 

890 M I NH=H •:; 1 MA;^-::H=H C 1 > 

900 FOR J=l TO IP 

910 IF U':j>^<MINU THEN MINU==U<.J> 

920 IF U'::.J>>MAXU THEN MA::-^;U=U< J> 
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930 IF H'::J><MINH THEN h1IHH=H<J> 
940 IF H<J>>MAXH THEN MA;KH=H':; J ::■ 
950 NEXT J 

960 dh=ma;kh-mihh 
970 di...i=ma;ku--minu 

980 FOR J=l TO IP 

990 H J > = ■:; H < J > -M I HH ;:■ ^Dmhi 

1 000 U ■:: J y = < U < J > -M I NU > ■•••DU*U 

1110 NEXT J 

1120 RETURN 

1200 REM DRAW LINES CONNECTING POINTS 

1210' FOR J=l TO IA-1 

1220 IF I<J>=0 OR I';;j+1>=0 THEN 1340 
1 230 HH=H •: 1 < J+ 1 ::- > -H < I< J > > 

1 240 ou=u < I <; JH- 1 > ::• - i< j > > 

1250 SH=SGN<HH> 

1260 IF SN=0 THEN 136© 

1270 ri=UU. HH 

1 280 B=U < I ( J > > -ri*H >■:. I < J > > 
1 290 SP=SQR >.. UU*UU+HH*HH > 

1300 FOR I<==H<I'::J>> TO H < I< -H- 1 > > STEP O. 125*HH-'SP 

1310 P=h1*|<+B 

1320 GOSUB 1500 

1330 NEXT l< 

1340 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INFINITV 

1370 l<=H':: I •::.!> > 

1380 IF SQN<UU>=0 THEN P=H < I < J > > s GOSUB 1500s GOTO 1340 
1 390 FOR P=U < I < J y > TO U < I < J+ 1 > > STEP 8 . 1 25*SQN < UU > 
1400 GOSUB 1500 
1410 NEXT P 
1420 GOTO 1340 
1430 GOTO 1310 

1500 REM PLOTTING SUEOUTINE 

1510 IF P>U OR P<0 OR low OR K<0 THEN RETURN 

1 520 G:!= I NT < K > *S- 1 2 1 - 1 28* I NT < P > - 1 NT ( 8* < P- 1 NT < P > > > 

1 530 POKE Q :. < PEEK < Q > OR 2-- (.7-IHK 8* K- 1 NT < K > ;:■ > > > 

1540 RETURN 

1600 REM DUMP GRAPHICS TO PRINTER 

1610 POKE 260. 05 POKE 261.05 POKE 0,625 POKE 1.27 

1620 POKE 2.205SPOKE 3. 12s POKE 4. 2245 POKE 5.201 

1 630 X=USR 5 POKE 1 . 65 5 X=USR 8 > 5 POKE 1.25 X=USR < O > 

1640 FOR M=0 TO 635 C1 = 120*INT<M.--S>-1024+M 

1650 FOR P=0 TO 15C2=C1+64*P5P0KE 1 . 275 X=USR<0> 

1 660 POKE 1.755 X=USR < > 5 POKE 1 . 64 5 X=USR < > 5 POKE 1 . 8 
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16?'e K=USRc 0>sFOR J=0 TO 7s i::3=PEEI<'::C2+8*.J> 

1630 FOR N=7 TO STEP -~1 

1690 POKE 1 . 3*SGH(:2-'--H AND 03 > 

1 700 ;^^=IJSR ■:: > s HE:KT H . J . P s poke 1 n 1 3 s K=USR '■: ■;■> 

1710 f-\EK7 M s POKE 1,12s ;k=IJSR ■:: O > s RETURN 

READS' 




Fig. 6-18. Abstract art, the rotating shrinking triangle. 



First the program sets up the arrays and vari- 
ables using the subroutine in lines 300-490. It com- 
putes the coordinates of the three vertices which 
the program will later rotate about an axis. The 
subroutine in lines 800-1120 translates these coor- 
dinates into a horizontal and vertical position, just 



as the perspective line-plotting programs did. 
Lines 500-590 blank the graphic characters and 
then place them correctly on the screen. Lines 
1200-1420 draw lines connecting the vertices for 
the sides of the triangle. Lines 1600-1710 are a 
screen-dump routine which sends the image to the 
printer. 

You might change some of these lines to pro- 
duce a low-resolution program. Use the low- 
resolution perspective line plotter in Chapter 4 as a 
guide. 

A Final High-Resolution 

Abstract Art Program— Program 23 

The images in Fig. 6-19 are the results of 
running the next program. These two images are 
oscillating lines that spiral clockwise to the center 
of the figures. Notice that in the lower image the 
lines on the right half have turned white instead of 
black and the lower part of the image has half of the 
vertical columns of lines missing. 



10 REM HIGH RESOLUTION ABSTRACT ART 

20 REM WRITTEN BV TIMOTHV .J„ O'MALLEV 

30 REM COPVRIGHT 1982, TAB BOOKS INC. 

40 REM 

50 GOSUB 300: REM INITIALIZE UARIABLES 
80 GOSUB S00SREM TRANSLATE K.-'vSZ TO H.U 
90 GOSUB 500 s REM BLANK GRAPHICS 

100 GOSUB 12005 REM DRAW LINES CONNEC I ING POINTS 
110 aOSUB 1. 600 s REM DUMP GRAPHICS TO PRINTER 
120 GOSUB 2000 s REM ALTER GRAPHICS BV SHADING 
1 3 G SUB 1 6 8 8 5 p R I N T C H R $ < 1 2 > 
140 END 

300 REM INITIALIZE UARIABLES 

305 IP=300 
307 IA=IP 

310 DIM I < I A> , yXlF> .- V< 1P> , Z< IP> , R<3> , U.:; IP>,H<: IP> 
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320 FOR J=l TO IP STEP 2 

325 ri=EKP ■:: < 360- J > 1 89 > 

326 0=J.-15 

330 K<J>=M*SIH'::0> 

331 S'<J>=0 

332 Z<J>=M*COS'::0> 

334 K JH- 1 > = < h1*2 > *S I H < > 

335 V'::J+1>=0 

336 Zt: J+1 ::■ = .:; M*2::'*C0S'::0 > 
340 NEHT J 

350 1 1 = 1 s 12=2!! 13=3 

380 FOR J=l TO IP 

381 I'::J>=J 

382 NEXT J 

420 R<1 > = 1S:!R'::2>=24: R'::3> = 14 

430 :K ■:: > = 1 !! V ■:; > = - 50 : Z ■;: > =7 

440 F=„ lsG=100 

450 S=l!!T=IP 

460 E!*="Z" 

470 l...l=15. 875!! IJ=7, 875s REM WIDTH AND HEIGHT OF SCREEN 

480 E=0.4!!REM ROTATION INCREMENT 

490 RETURN 

500 REM BLANK GRAPHICS 

510 PRINT CHR*';:i2;:'3 sREM BLANK SCREEN 

520 POKE -3968. 32!! REM ERASE CURSOR FROM SCREEN 

530 FOR .J=-1024 TO -1 

540 POKE J.0 

558 ne:==:t J 

560 FOR J=0 TO 127: REM PLACE GRAPHICS ON SCREEN 

570 POKE J-3240+48* I NT •: J. ' 1 6 ;:■ > . < J+ 1 28 > 

580 NEXT J 

590 RETURN 

600 REM ROTATE POINTS ABOUT AKIS 

610 FOR J=S TO T 

620 IF B*="Z" THEN A1=X< J) s A2=R< 1 > s A3=V< J> : A4=R<2::' 

638 IF B*="V" THEN A1=X';:J> s A2=Ra > s A3=Z'::J> !: A4=R'::3> 

640 IF B*="X" THEN A1=V':: J> !! A2=R<2;:' s A3=Z<J> s A4=R'::3> 

650 P1=A1-A2: P2=A3-A4 

660 L=SQR C P 1 *P 1 +P2*P2 > 

670 IF P2=0 THEN A5=0-<P1<0>*3„ 141593 

6!30 IF P1=0 THEN A5=SGN'::P2::'*1 , 570796 

690 IF P2O0 AND PlOO THEN A5=ATN<:P2.-'P1 ::.-.::Pl<0::.*3. 141593 

700 A5=A5+E 

710 IF B*= " Z " THEN X ■:: J > =L*COS < A5 > +R < 1 > s V <. J ::■ =L*S I N < A5 > +R < 2 > 
720 IF B*="V" THEN :«:< J>=L*COS':: A5>+R':: 1 ;:• : ZC J>=L*SIN■::A5:;•+R<3> 
730 IF B*=":K" THEN V(:J>=L*C0S<A5>+R'::2>sZ<J>=L*SIN<:A5>+R'::3::' 
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740 NEXT J 
750 RETURN 

300 REM TRANSLATE H%V,Z TO H. U 

810 FOR J=l TO IP 

820 D V=V c: J > -V > s I F D V< =0 THEN PR INT " DECREASE V < 9 > " : STOP 
830 Df<=X<J>~H<0> 
840 DZ=Z':;j>-~Z<0> 

850 U'::.J>=i3*ATN'::F*DZ.-DV> sREM UERTICAL SCREEN POSITION 
860 H':;.J>=e*ATN':;F*DK.-D'r'::'SREM HORIZONTAL SCREEN POSITION 
870 NEXT J 

880 ri I NU=M <: 1 > 5 ma;ku=u c i :.' 

890 ri I NH=H •:: 1 s MAXH^H ■:: 1 > 

900 FOR J=l TO IP 

910 IF U'MXMINU THEN M I NU=U < J > 

920 IF U'::j>>ma:ku then MAXU=U'::J> 

930 IF H'MXMINH THEN M I NI-NH >:: J > 
940 IF H< J>>MAXH THEN MAXH=H<.J> 

950 ne:>^t J 

960 DH=I'1AXH-MIHH 

970 DU=l'IAXU-NINO 

980 FOR J=l TO IP 

990 H J > = < H ■:; J > -M I HH > .•-DH*!...! 

1 900 '.I < J > = < 'J < J > M I MU > - -DU^U 

1110 NEXT J 

1120 RETURN 

1200 REM DRAW LINES CONNECTING POINTS 

1210 FOR J=l TO IA--1 

1220 IF I<J>=0 OR I':;j+1>:=0 THEN 1340 

1 230 HH=H ( I J+ 1 > > -H < I < J > > 

1 240 ui..'=u I < J+ 1 > > -U ■:: I < J ::■ > 

1250 $N^=SeNCHH> 

1260 IF SH=^0 THEN 1360 

1270 M=UU.- HH 

1 280 B=U I J > > -M*h-I < I < J > > 

1 290 SP=SQI?: < i..JU*UUh-HH*HH > 

1300 FOR l<=H<I<J>> TO H<I<;j+l>> STEP 8. 125*HH..-'SP 

1310 P=M*l<f B 

1320 GOSUB 1500 

133S NEXT i< 

1340 NEXT J 

1350 RETURN 

1360 REM SLOPE EQUALS INF I NIT'/ 

1370 I<=H'::I(:J>> 

1380 IF SGN < W > ~0 THEN P=H C I< J > > s GOSUB 1 580 s GOTO 1 340 

1 390 FOR P=g < I '.. J > > TO U < I < JH- 1 > > STEP , 1 25*SGN < MM > 

1400 GOSUB 1508 
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1410 ne;kt p 

1420 GOTO 1:340 

1430 GOTO 1310 

1500 REM PLOTTING SUBOUTIHE 

1510 IF P>IJ OR P<0 OR low OR l«0 THEN RETURN 

1 520 Q= I NT < l< :■' *S- 121-1 2S:+: I NT < P > I NT < 8* < F'- I NT <. F > ? > 

1 5313 POKE Q , < PEEK < Q > OR 2-'- < 7- 1 NT < 8* < K- 1 NT < K > > > > > 

1540 RETURN 

1600 REI'I DUMP GRAPHICS TO PRINTER 

1 e. J. POKE 260 . s POKE 261.0s POKE . 62 : POKE 1.27 

1620 POKE 2r 20511 POKE 3. 12: POKE 4, 224s POKE 201 

1 630 :^^==USR < > s POKE 1 65 s >^=LISR < O > s POKE 1.2s X=IJSR < > 

1640 FOR M-0 TO 63 s C1 = 120*INT':;M.-'8::' -1024+M 

1 650 FOR P=0 TO 1 5 C2==C 1 +64*P s POKE 1.27! :K=USR < O > 

1 e.60 POKE 1 . 75 11 ;>^=USF: < s POKE 1 . 64 s >:;=USR < O > s POKE 1 . O 

1670 K==USR'::0> s FOR J==0 TO 7s C3=PEEK(C2+S*J> 

16S0 FOR N=7 TO STEP -1 

1690 POKE 1. 3M':SGN<2---H AND C3> 

1 P'00 K=USR ( > s NE:KT N . J . P s POKE 1.13: K==USR < O > : NEI^a' M 

1710 FOR J=l TO 20s K=USR<0> : NEKT J s RETURN 

2000 FOR I --960 TO -1 STEP 128 

2010 FOR J==I TO 1+63 

2020 POKE J. ':;255-PEEK< J> > 

2030 HEKT J. I 

2050 FOR J~"-512 TO -1 

2060 POKE J. CSS AND PEEK<J>> 

2070 NEXT J 

2080 RETURN 

F:EADV 




Fig. 6-19. Abstract art, spiralling lines. 



We present the program listing but we will not 
look into it. What we did was simply to compute the 
positions of various points and connect lines be- 
tween consecutive points. The final figures were 



displayed on the video screen and then dumped to 
the printer as in the last program. Again, you can 
change the program to suit your computer. With 
that, let's go on to animated graphics. 
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Chapter 7 




Animated graphics are an interesting area of com- 
puter graphics. Unfortunately, many personal com- 
puters simply do not have the speed to handle 
animated graphics. Unless the graphics are simple, 
everything appears as if it is in slow motion. To 
solve that problem, programs are virritten in 
machine-language or at least use machine-language 
extensively. ITiis change can speed up the apparent 
motion by the factor of 10. 

TYPES OF ANIMATED GRAPHICS 

Let's discuss a few types of animated graphics 
that are around today. One type is the video game, 
found in both arcades and home entertainment cen- 
ters. Another type is the computer game that you 
load into your computer from tape or disk. Other 
types of animated graphics include models or simu- 
lations that are programmed into the computer but 
are not games. 

Arcade-Type Video Games 

The video game machines and the video com- 



puters generally contain only one program. That 
program is loaded as Read Only Memory and can 
not be changed, except by changing the ROM car- 
tridge. The users of these games never see the 
programming. The programming is in binary or 
machine-language. 

Programmable Games 

Programmable games for tlie personal com- 
puter are of two types as we mentioned before: 
those in BASIC; and those in machine-language. 
Games in BASIC are likely to be understood by 
more programmers but may be slow. You may have 
to wait for a question mark prompt to appear before 
you can enter a response, although some versions 
of BASIC contain an INKEY$ function which allows 
the entry of characters without the display of a 
prompt. Other versions of BASIC would have to 
use a machine-language subroutine that would 
search to see if a key was pressed during a period of 
time. BASIC is really not intended to be the lan- 
guage for animated graphics. 
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Real-time simulations are better if they are 
written in machine-language. In real-time simula- 
tions, your responses are rapidly interpreted and 
the graphics reflect your action. Unlike BASIC, 
machine-language can look for your response and if 
it doesn't find one, it can still continue with the 
program. 

Models and Simulations 

Animated graphics can be used to model how 
something in the real world might act. Suppose you 
wanted to know how two galaxies would react if 
they were to collide. If you Imew the forces in- 



volved, you could make a simulation of the colli- 
sion. In reality the process would take eons to 
occur, but with a computer model, you could see 
the results in seconds or minutes. This is an ideal 
example of the use of animated graphics for pur- 
poses other than entertainment. 

ANIMATED GRAPHICS IN BASIC 

Program 24 uses the poke function to place 
user-defined graphics on the screen. The image is 
supposed to represent a walking figure whose legs 
and arms move. 



le REM ANIMATED iBRAPHICS 

28 REM WRITTEN BV TIMOTHV J. O'MALLE'.' 

30 REM COPVRIGHT 1982. TAB BOOKS INC. 

40 PRINT CHR*<12>sREM CLEAR SCREEN -iSOME CAN USE CLS> 

50 DIM A< 10n32> 

60 FOR J=l TO 10SFOR K=l TO 32 
70 READ ACJ.hOsHEKT K.J 
80 POKE -3040. 192s POKE --3039.193 
90 POKE -2976. 194s POKE -2975.195 
108 FOR .1=1 TO 10SFOR K=l TO 32 
110 POKE K-513. A<J.K> 
12^ ne>=:t K.J 
130 GOTO 100 

200 DATA 0.0.0.1.1.3.3.7. . 8 .8.1 28 . 1 2S . 1 92 . 1 92 . 224 
2 10 DATA 1 1 . 1 9 . 34 . 4 . S . 1 6 . 32 . 1 92 . 208 . 280 . 68 . 32 . 1 6 .8.4.4 
220 DATA . 0.0.1. 1 . 3 .3.7.0.8. . 1 28 . 1 28 . 1 92 . 1 92 . 224 
230 DATA 11.19.1 8 . 4.8.1 6 . 32 . 96 . 208 . 208 . 72 . 32 . 32 . 24 .4.4 
240 DATA .0.0.1.1. 3 . 3 . 7 . . 8 .8.1 28 . 1 28 .192.192. 224 
250 DATA 11.11.1 8 . 4 . 4 . 8 .16. 48 . 208 . 208 . 72 . 64 . 64 . 56 . 6 . 2 
260 DATA .0.8.1.1.3.3.7 . 8 . . . 1 28 . 1 28 . 1 92 . 1 92 . 22'=-l 
270 DATA 7.11.9.10.2.4.4. 24 . 224 . 208 . 80 . 80 . 64 . 48 . 1 5 . 2 
280 DATA 0.8.0. 1. 1.3.3.3.0.8.8. 128. 128. 192. 192. 192 
290 DATA 7.7.7.3.2.2.4.12. 224 . 224 . 224 . 1 92 . 1 23 . 96 .12.4 
380 Di4T A 0.0.8. 1 . 1.3.3.3.0.0.8. 128. 128. 1 92 . 1 92 . 1 92 
310 DATA 3. 3.3.3. 3.1.1.3. 192. 192. 192. 128. 8. 128. 112. 16 
320 DATA 8.8.8.1.1.3.3.3.0.8.8.1 2:3 . 1 28 . 1 92 . 1 92 . 1 92 
338 DATA 7 . 7 . 6 . 2 . 4 . 3 . 8 . O . 224 . 224 . 1 68 . 1 28 . 1 28 . 64 .192.192 
3:40 DATA 0.8.8.1.1.3.3.7.0.0.8.1 :28 . 1 28 . 1 92 .192. 224 
358 DATA 7 . 11. 18. 10.4.6. 1 . 1 . 224 . 288 . 88 . 80 . i:.4 . 32 . 1 44 . 24 
360 DATA 0.0.0.1.1.3. 3 ,7.8,0.0 . 1 28 . 1 28 . 1 92 .192. 224 
370 DATA 1 1 . 1 1 . 1 8 . '4 . 8 . 4 . 6 . 4 . 288 . 288 . 72 . 32 .16.16.8. 24 
388 DATA 0.8.0.1.1.3.3. 7 .0.8.0.1 28 . 1 28 . 1 92 . 1 92 . 224 
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:390 DATA 1 1 :. 1 9 . 1 8 . 4 4 :. 8 . 8 , 24 . 1 44 . 1 2:6 . 72 . 32 . 1 . 1 2 n 4 r 1 2 
READS' 



Let's look at the program. The data contained 
in the lines 200-390 are numbers representing the 
bits of the image. The numbers range from to 255 
for the 8-bit numbers. To make the figure appear to 
walk, successive graphic characters are poked onto 
the screen and the old ones are erased. Thus the 
images change and motion is accomplished. 

UTILIZING MOTION IN ANIMATION 

Animated graphics use motion. Motion can 
give the illusion of deptli to an image. Motion can be 
in more than one direction. A simple rotation of a 
figure could be considered motion in one direction. 
A baseball, as it is projected through the air, could 
illustrate motion in two directions since the vertical 
location and the horizontal location both change 
independently with time. A molecule has at least 
three types of motion: it has thermal vibration, 
rotation of one or more groups, and Brownian mo- 
tion in whatever media it is in. 

Motion in One Direction 

We have seen motion in one direction in our 
molecular rotation model. Altliough that program 
was slow, it displayed the principle of motion in one 
direction. On the screen or on paper tlie image 
changes along one dimension. The stretching of a 
rabber band might be another example of motion in 
one direction. The length changes with time. 

Motion in Two Directions 

Motion in two direction includes the ballistic 
motion of a projectile through the air. If the projec- 
tile is spinning, it might be displaying motion in 
more than two directions. Another example is a 
Lissajous pattern made by a moving dot. The dot 
traces out points on the screen like an oscilloscope. 
The orbit of an object about another object is 
another example of motion in two directions. 

Motion in Three Directions 

In addition to rotating projectiles, examples of 
objects that have motion in three directions include 



the path of a fly buzzing through the air, the cycloid 
motion of a tire, the motion of the moon around the 
earth while both revolve around the sun. The list is 
endless. 

ACCOMPLISHING MOTION 

There are several techniques that you can use 
to simulate motion. You can print points and then 
erase them. If you are using a BASIC language that 
has the poke function, you can use that function to 
place points on the screen and then place blank 
points on the screen to erase them. If you are using 
machine-language subroutines and the USR func- 
tion, you can change the image rapidly to give the 
illusion of motion. There are also other ways. 

Printing and Erasing 

If you write a program that has a print state- 
ment such as PRINT "*"; followed by a statement 
like PRINT CHR$(8); the program will print an 
asterisk and then erase it. If you direct computer 
control back to the first statement, it will enter an 
endless loop and the result will be a blinking as- 
terisk. Unfortunately, some computers insert a 
carriage return after every 64 or 80 characters 
printed. By using control characters that tab the 
cursor to the proper position on the screen, witliout 
erasing points in the process, and then erasing the 
character in question, you can print and erase 
points to accomplish motion in BASIC. This pro- 
cess is slow. As we said before, BASIC is really not 
the language for animated graphics. 

Using the Poke Function 

The speed of printing and erasing points on tlie 
screen can be increased by using the poke function 
to place characters in tlie memory positions that the 
screen occupies. Since the poke function moves 
numbers in memory rather than on the screen, 
faster motion can be achieved. When using the poke 
function, use the ASCII codes for the graphic 
characters and the numbers that correspond to the 
screen RAM in the memory of the computer. To 
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erase or change a point, simply poke a blank charac- 
ter or a desired character. This substitution of 
characters makes the image appear to move. 

Using Machine-Language and the USR Function 

Probably the best way to accomplish motion on 
the personal computer is to use machine-language, 
or at least machine-language subroutines. The use 
of machine language bypasses the BASIC interpret- 
er, and hence the programs run faster. Machine- 
language has the disadvantage of being cryptic. 

The USE function is a way to call machine 
-language subroutines. Different computers use tlie 
USR function in different ways, but if you can use it 



to increase the speed of a program, you have a 
faster way to display animated graphics. 

An Example in BASIC— Program 25 

Figures 7-1 and 7-2 are two examples of Lissa- 
jous patterns produced by the next program. 

Let's look at the program. Lines 10-40 contain 
the title and credits. Line 45 dimensions an array so 
that we can actually print the figures on paper. 
Lines 46-49 set each element of the array to 32, the 
ASCII code for the blank space. In line 50 T is for 
the variable time, and R is the last position that we 
plotted. In this case it is set at the arbitrary screen 
position -3968. Line 60 clears the video screen. 



10 REM LISSi-iJOUS PATTERNS 

20 REM WRITTEN BV TIMOTHV J„ M-'1ALLEV 

30 REM COPVRIGHT 1982:. TAB BOOKS INC. 

40 REM 

45 DIM UA<30.60> 

46 l-OR J=0 TO 30 

'H i' i' Ui"-^ !■>—•••_'' 1 'J '^J'ij 

43 UA'M:. I<>=32 

.^ I. I r" •. .1 T ( T 

n 1 I - . ? ■-< 
50 T=0sR=-396S 
60 PRINT CHR*c:i2>5 
70 T=T+iZi.05 
130 ;^<=== I NT ■:; 28*S I N < 2:t:T > > 
90 V= I NT 1 4*8 1 N ( 3*T > > 
9 5 U A < < 1 4 V > >■. 2 B + >■. > > =43 

1 00 p==:;:.:; + ,|:,4*',.>-.-304 1 

110 POKE R.32 

120 POKE P:. 43 

130 R=P 

135 IF T>6„3 THEN 150 

1 40 130 TO 70 

150 FOR .1=0 TO 30 

1 60 FOR i<=i;:i TO 60 

1 ?'0 PR I NT CI-IR* ■:; IJA < J K > > i; 

i£i0 ne:^<t K 

190 PRINT 

:200 NEKT J 

210 PRINT CHR$<12> 

:22gi END 

READS-' 
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Fig. 7-1. Lissajous pattern tracing of video screen. 

Line 70 increments the clock. Line 80 computes the 
position of the point in tlie horizontal direction and 
hne 90 computes the vertical position of the point. 
Line 95 sets the element in the array at tliat position 
equal to 43, the ASCII code for the plus sign. Line 
100 calculates the screen position using the X and Y 
values and assigns the value of the position to the 
variable P. Line 110 pokes the last position of the 
point R with tlie number 32. This erases the last 
plus sign. Line 120 then pokes the plus sign into its 
new position P. Line 130 sets tlie last position equal 
to tlie current position. Line 135 says that if the 
variable T is greater than 6.3, go to line 150, which 
will print out all the positions tliat the program 



generated. If you deleted line 135, you would sim- 
ply have a continuous pattern generated on the 
screen. Line 140 is a goto statement, which directs 
the computer to line 70. Lines 150-200 form nested 
loops that print the Lissajous pattern on paper. Line 
210 causes a form feed to the next page, and line 
220 ends the program. 

By changing tlie definitions of X and Y in the 
program, you can generate any number of Lissajous 
patterns. Some computers might use the set and 
reset functions instead of the poke function to place 
dots on the video screen. This program could even 
be converted to create high-resolution graphics for 
some spectacular images. The -3968 in line 50 is 
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Fig. 7-2. Lissajous pattern tracing of video screen. 

the screen position for the upperieft corner of the tilings possible only on large computers will be 



number for that screen-RAM memory location. The 
-3041 in line 100 is the memory location for the 
position that is approximately in the center of the 
screen. Again, you may have to change that number 
to get a good animated graphic program. 

FUTURE POSSIBILITIES 

What does the future hold for graphics for 
personal computers? Probably a lot! Some of the 



possible on personal coiuputcrs as the 



memory of personal computers increases. There 
will be an amplification of some of the things that we 
talked about in this book and probably a lot that we 
didn't even hint at. 

One of the things that might be possible is the 
creation of TV-like simulations. Your computer 
could generate images that change thirty times a 
second so that the display would look like a televi- 
sion picture. You could create a little world within 
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the memory of your computer, take imaginary jour- 
neys to distant realms, and see many fascinating 
sights. 

What else would be possible? The answer to 
that question lies with the imagination of the pro- 



grammer and the sophistication of his computer 
system. Anyone who is willing to pursue a simple 
idea to its furthest limit will find success waiting at 
the end of the road. Wliere will it all end? I don't 
really know; but I do know that the sky's the limit. 
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In this final chapter we look at two programs in 
BASIC that produce graphics. In the first we see a 
high-resolution three-dimensional figure of a 
house, similar to the house program that we saw 
earlier. In this program the hidden perspective 
lines are erased. We also discuss how parts of the 
house can be shaded. The second program is like 
the molecular model that we saw earlier except we 
increase the efficiency of the algorithm and we 
apply texture, shading and highlighting to the 
sphere to help achieve realism in graphics. The 
balance of the chapter is about the effective use of 
the video display. 

A HIGH-RESOLUTION SOLID FIGURE OF A HOUSE 

The perspective line program that drew the 

jiOuSc wuiKcu well, uutiLiiaua cuiuusiiig iiuiiiuci ui 

lines. What we really need is a program that would 
not show any hidden lines. We have seen programs 
that use various methods to erase hidden lines. 
Now we look at a better algorithm for constructing a 
soUd three-dimensional figure. 



When dealmg with solid figures we can no 
longer think in terms of lines; we must think in 
terms of surface polygons. A surface polygon is a 
flat enclosed area bounded by three or more 
straight lines. A cube, for instance, has six surface 
polygons which are all squares. The surface poly- 
gons of an object meet at their edge lines. 

In our house example we must define the 
house as a collection of polygons. A side of a house 
might be one polygon; one side of a roof is another; 
part of the face of the house might be another. The 
polygons must meet the following qualifications to 
work in our program: (1) No interior angle of the 
polygon can be greater than 180 degrees; (2) no 
polygons can overlap each other: and (3) the phvsi- 
cal dimensions of the polygons can not vary widely. 

IX ui^- liiLt-iiui aiigiv-o *.^AV^^v^v4 ±Kj\j (av^gtL-uo, ao iii a 

star-shaped figure, the program ignores certain 
parts and would probably recognize only the center 
of the polygon. Polygons that overlap are confusing 
to the algorithm although they would be drawn 
correctly at times. If the dimensions of tlie poly- 



138 



gons vary wildly, the computer will have difficulty pears and the side of the house becomes evident, 

recognizing which polygon is closest to the view- The roof on that side also comes into view. Finally 

point, because ttie program defines a midpoint for the roof and sides of a porch appear in tlie back, and 

each of tlie polygons and measures the distances to the gable roof that you saw on the right side in the 

the viewpoint from those midpoints. A priority first figure appears on the left side in the back, 
level is established for each polygon based on the What tlie program does when we take our 

distance from the viewpoint to its midpoint. imaginary walk is to sort the polygons by their 

Figure 8-1 shows images produced by this distance to the viewpoint. It determines which ones 

program. Imagine tliat you are standing in front of are closer than the otliers and draws them in 

the house in the first figure. As you look at the next perspective accordingly. A priority order which 

figures, imagine that you are walking around the changes with each view is established for ttie set of 

left side of the house. You notice that a gable disap- polygons. 

10 FiEM HIGH RESOLUTION SOLID FIGUFiE OF A HOUSE 
20 REM URITTEH BV TIMOTHV J, O ^' MALij:;:',' 

30 REM COPVRIGHT 1982. Tf\B BOOKS IHC, 

■40 REM 

50 GOSUB 200 5 REM INITIALIZE i lORIOBLES Oi iij 0RRr',':5 

60 GOSUB soon REM SORT BV IHiIREOSING DISTAIICES TO MIDPOINTS 

70 GOSUB 1100IUREM TRAHSLAIE X.',':. Z TO H.U 

80 GOSUB 13001! REM COMPLETE MOTRIK Di-iTO 

90 GOSUB 1500:; REM PRINT OUI HIGH RESOLUTION SOLID OBJECT 

100 GOSUB 1800! REM FORM FEED FOP MEKT UIEU 

110 GOSUB 1900 8 REM ROTATE POINTS ABOUT AN AXIS 

120 GOTO 60 s REM REPEAT PRIMTING DIFFERENT UIEUS INDEFINITELV 

200 REM INITIALIZE UARIABLES AND MATRICES 

:2 1 I P=3;7 s NF---2 P !! 'IT^'^:^ :[ P H IF' 

220 D I M K ( TP > < TF^ > . Z < TP > . U < TP > . hi k TP > ■.. F: <. 3 > . MIX < I IF-' . 8 . 5 > PR HP > 

225 DIM DICNP::' 

230 FOR J^^^I TO IP 

2'40 REf\D >■■. >: J :> , <:. J ;> , Z < ,1 i 

:250 HEKT J 

2:60 Cif-iT |:-| 01 ;. 13 :. '^I-S '56 :• 4S Sc. j. S , 20 j 1 8 
270 DFlT A 213 & :20 1 01 :. 1 Pi 8 1 2 2B :> 8 1 2 

280 DATf -1 13 J 8 20 1 8 8 27 ? 22 8 ■.. 29 ? 9 ■.. 4 Q ? 20 

29Q Di-iT'i-i 1 :. 40 :. 5:7 20 , 4(3 ■.. :2)3 , 1 , '54 ■.. 2 "P' 20 23 , '2& 28 -.• 54 , 2:7 

'5 13 D f '-i T i-i :2 01 4 8 -.■ 2 ■.. 2 8 4 S , 2. 7 ■.. "5 1;:. 4 8 2 0! 5 6 '2 8 2 '2. 8 -.• 2 8 2 7 

:3 1 13 ['m-IT A '20! 28 :. i . 36 . :2i;;;! l 2 . 36 ■.. l 8 , i , 2)i\ , I 8 :l, 13 . 2i3 48 :. 13 

32i?i F'F-iT A :2i;;i 40 1 2 29 -.■ 43 1 . .4:;Ei 1 8 , '40 . :!, 2 , 48 ■.. 

:330 DF-i TA 01 8 ? 8 :> :2!3 8 ? 8 :3iS :28 

340 FOR J:==l TO NFS READ MTKCJ:. 0. 0> 5 FOR I<=^1 TO HTIK t; T . 8 . > 

:350 REFiD MVA ( J !< > F^EXT K , J 

Z60 FOR J^^ 1 TO NF' s K 1 ==i3 s 't' 1 =^^i3 « Z J ^=^i3 ^ FOR K= I "! O i i r ^ :r , fi , a j 

370 X 1 =X 1 +H (. MTX C J . K ■.. 8 ''> '' " '.' 1 ^^V L i ^ ■' J .12 8 / > 

380 z 1 =:z 1 ^-z c: mt:-; j , i-' , ^ > s f iE;::-rr ; 2>' 'r 1- 1 F' ■ ^^4( 1 c Frr:-: <: j . 13 , 1 

390 J ■! 1 1^^' ':> =■■',' 1 . i m'K T ,: B , i3 > - ;! ':■ 2' >\ J-i- T P ;:> ='Z 1 ' c H'm c" J , , 8 y - 1 ;;. 
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■400 WEXT J 

.=1 ;| Di-Yfi'-i 5. 4. ;??;. 2&:. 37. 4 

■420 C'f-iTH 5:. 6. 7:. 10. 36. 6 

A Ze DftTf-i & 1 . 1 '3 ■■■ 1. Q ■■• 2'5 . 2B 1 8 

.44-0 C'i-4Ti"! 7 . 9 1 i, . J. '4 . 33 . •3'4 . 35 . 9 

4'::i0 Df-iT0 5:. 2. 32:. 33. 34 . 2 

4i;::.0 DATA '5- 2 . 2'9 . 3 1 . 32 . 2 

■4713 DATi-i t. . 1 4 . t '5 . J. 6 . 313 . 33 . i. A 

4BB C'ATr'i €■ . 3 . 22 . 23 . 26 . 3'P . 3 

4 90 DATA 5. :!. . S. 9. 35. 1 

150ei Df-iTA 5 . J. & . 30 . 3 :l. . 2;i?i . 1 6 

510 DATA 5. 30.31.32.33.30 

15213 Df-iTA 5 . 1 2 . 1 3 . 1 & . 1 7' . J., 2 

13 '3 D A 1" i"i 5 . 2 5 . :2 S . 2 7' . 2 S . 2 'ri 

540 DATA 5. 5. 4.27.28.5 

550 DATA 4. 15. 16. 17. 15 

!56.0 DATA S . 3 . 'Z2 . :2 J ■.- 2(3 . 29 . 3 

570 DATA 6. 9. 1 1 . 12. 13. 10. 9 

580 DATA 5. 7. 8.9. 10. 7 

590 DATA 5. 5. 23. 10. 36. 5 

610 DATA 5. 1 . 6. P. 8. 1 

620 DATA 5. 1 1 . 12. 15. 14. 1 1 

630 DATA 4r 17. 18. 19:. 1"' 

640 DATA 4. 16. 17. 19, 16 

650 DATA '5 . 2:4- . . :72 . 2: 1 . 2A- 

660 DATA 4. 24. 19. 18. 24 

670 C'fTTf-i 15 . 1 9 . 2: 1 . 2Q . 1 & . 1 9 

680 DATi^-i 6. . 1 7 . 25 . 26 . 23 . .2'4 . 1 £5 

6913 R < 1 J 1 8 s F; >: 2 > ==^2.4 n R <: 3 > - 1 '4 FJEl'1 F;:!:)T AT I OH F-'U I H J ClJOFJD I 11i4TE;::E; 

7'i3i3 >■■ < e > ' ',' '■: ) 1 &0 ! .z > » fiem u 1 emfi} i m c;oorc' i i-!ate;s 

710 F':^=0., 1 s G==„ 99:1 REM F IS DISTORTION AMD 6 IS MAGNIFICATION 

720 B*=="Z"sRE:M i-iXIS OF ROTATION 

730 WID=S0s b.l2^'==9i3 2 RE:M WID IS WIDTN OF PLjDT ]:n F'IXE:LS 

740 E=0„4:RE:I1 ROTATION IHCRENEllT IN Ri-iCjJAMS 

750 F^eT==^96s REM HGT IS HiEIOFlT OF P1..0T IN Pli^^lEI. S 

760 GOSUEi 800 1! REM EJET UP NAuNlNE L ANGOAiIiE SOBROUTINE 

FOR PRIFITER 

770 FJETUIRN 

900 REN SET UF^' i'-IACNINE EANQLIAGE SUBROUTINE FOR PR [NTER 

810 ROl^^E 260. 0" PiJFJE 261.0!! REN SUBROU FENE STARTS AT 0800 HEX. 

820 POKE 0.62;iPOi<E 1.27!! REM |..,D A. 27 

830 POKE :2. 20511 F"'i.il<E 3.12!!R0K:E .~h. 224:iREM CALL SEND <AT EOOC 
HEH > 

840 POKE 5. 201!! REM RET 

850 KX^^njSR'OS) RE!4 SENi;>S 27 TO F^'R INTER AT FiDC'RESS EOOC hlEX 

860 POKE . 651! ;k;K:=:^USFO O n REM SENDS 65 TO PRIFFT ER 
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870 F^'OKIE 1 . 1 :k:^::^=^^IJSF:<:0> iii<EM SEI IL'S 1 TO l^'lvIMTER 

fi:m ■-.riFT i?',' ii n. f1:~i-iS] i lu i ■ i '".ii iin e ■ lu i-n i i 1 1 f.. 
9ji:i r"riF' i.j nj iH'sFiM ! i e Fti i ' i'" M'Mniiir nil 1 1 1 1 i i f ■ 

■I'LTi ['','-=','' -N I F' ' -','M-i I I I " n [l-icn |iiin;ip||| 1 1 ii i i | fiSF" ' ! 
9r.Ci 1'''. I- ['.< J \- IP ' '.[< I',"' .N I f ' Ci ' 

•?-io C' r ' J ' =--:.i:iF'' i <: '.h>: : i r<\''H i E'r-M ',''!: F'F'' i ■ - j h i if ; ; r i 

■?'=.i;i FOP J = ] 1 1 1 I !F' ■ ] iM - 1 II F'F M 'M \P 1 Fill 'F'l i fl I F I ' I 1 1 il If F •-. 

■?i£.i:i ]F ['I' I 11 ' ' I- ' ii-iEii imniij 

97111 n=--rP'l 'SPP'I .=-F'F''l i-J 'iiF'F''l il '-iiiiFTEll '".Flirii! i 'F' ] i iF' i T',' 

98i:i n==l'I'l 'iiF'T'l ' = F'1'1 II 'Sl.'hl il ■ ,i"F'M'l 'i.Tn:! hi' '"iiiiCES 

99i:i I =1 - 1 s ] F I n 1 F!l II ■ i.'.i I 
1000 FIEXT Jii F:i;rF! JF?hl 

J 03 PEII FHii HI I I'M 1' .11, n Hit riF Mi:i|i | r ni | i-i| i ■] ■ .PI .fV.'Ei:.;. 

luJn PF'iMl "Tiii.i I Mr, I !■! OF, IF ' 1„ I 'I i FT i r-.| \' ■ w < 111 I 1 I !E 708. 

1030 pr i fit "then trv agaiil." 
1040 eh:' 

1100 REM rRAMSLfVTE K.W.Z. TO Fh. 

1110 FOR J==l TO TPS C>V==','CJ 0) s IF F'','^:=0 TFIEH 1010; REM TOO 
CLOSE 

1 120 DX=;Kc; J> :K(0> ; i:'Z==Z<.J> Z':0> » Oi; J>-"f::|T|^|,:;F:^.:|::l;7,.■■|::,v;. 

1 1 30 H t; J' y ATI I <: f*i:'>^;. ■ts',^ > - MiE>a" j - m i i-io==u >: i > s I'1i-'-i:ku^:^=u i > s m i i iFF=^Fi < J. > 

1 1 40 MA:KIT=T1 J. > s for: J~= l to TP n I F 1.1 , T > <: M I i,|i..j Tl -lEM M I ! |IJ==0 < J > 

1150 IF UC J> >MO;Ki.i THEN MO>:;u^==U'::J> 

1160 IF HCJXMIHH TFIEH MIMFNM-i':: J;' 

1170 IF HCJ:,. >MA:Khl THEFI MEiKH==H< J> 

1180 NEKT J 

1 1 90 DH=i1 Al^a-f-M I l-ll-l II DU^=Mf-:i:Ki..i I'^l I m 

1200 FOR J:==l TO TP 

1210 F-l < .J > =13* H < .J > -Tl :i: MFl -'Dmhi I D II O < J > ^^^=0* ':: 1,1 r :r > ■ M I FT..I > .^-i::'U*l-IGTr 

1220 HEKT JnRETURFI 

1300 REM COMPLETE MATRIX DATv-i 

1310 FOR J=l TO HPS FOR K=l TO MTX^PRCj;.- . 8, 0> -1 

1 320 HI-I=H C MTX <: PR (. J ;• , l<4 1 . 8 > > - F^ rf T^-^ < PFi: C J > . K . Q '> ;■ 

1 330 UU=^Ci < MTK PI? C j' > K i 1 . i3 > > U < m>< C PR C -J > \< . i3 > > 

1340 SH=SGH'::HH> : IF SH=^0 THEN 1400 s F;:EM SLOPE EQUALS I HP INI TV 

1 350 M=Ui...i.-- HF1 ! B=U < MTK k PR < J ) . K O > > -M^^'^H f. mK C F^'R C J > . !<: O > > 

1 360 MTX >:. PR < J > , l< . j. > ==0 r PXTK <. PR < J > . I< . 2 > =M 

1 370 mt;^^; < F'R < J > , i<: :, 3 > =^=b h mtx < pr < j > , i< ■, 4 > =0 

1 330 MTX < PR < J > K 5 > =SGN C < mH < I P+PR < J > > +B > - U C I P+PR < J > > > 
1390 i\EXT l<:.Js RETURN 

1400 REM SLOPE EQUALS INFINITV 

1410 MTX < PR < J > , l< , 1 > = 1 II f'lTX < PR < J > , K =. 4 > -H < MTK < PR < J > K , 9 > > 

1 420 MTX < PR t: J > , l< . 5 > =S8N < IITX < PR < J > , l< , 4 > H < I P i- PR < J > > > 

1430 GOTO 1390 

1500 REM PRINT OUT HIGFI RESOLUTIOFJ SOLID 
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IfllS MU=0!FOR J=l TO TPS IF U CJ > >MU THEN MU=U<J> 

1520 HE:KT .:r!!MU=INTc:riU)-i-li!REM SEARCH FOR TOP Ul- OBJECT 

1530 FOR JS=^::MU TO STEP -1 

1540 FOR LS=0 TO I NT < W I D.''W2 > ~ 1 5 GOSUB 16505 REM READV PR INTER 

1550 FOR l<S=^LS*UI2 TO LS*W2+I.J2 -1 s NS=1 n MS^=^1 s SS==0 

1 560 I F riTIK < PR < 1-IS > n MS 1 ::■ = 1 THEI-I 1 688 

1 570 ZI..'"MT;K ( PR < l-IS . MS 2 > *I<S+MT;K < FR < HS > . 11:5 . 3 > 

1580 IF ZU-JS>-0 AND ZU-JS< 1 THEN SS- in GOTO ISO© 

1 590 I F SGN < ZU- .JS > < >MTK < PR ■'. HS > . MS . 5 > Th\LH 1 7'30 

1600 MS^=^MS+lslF MS<MTK(:PRc:NS>.0:. 0> THEN 1568 

1 is 1 POKIE 1 ss " ;k;---:-~u£:r <: o > 

1620 NEXT KS:. LS 

1630 POKE 1:. i3i!;K;^<-USR<:0>sREM NEXT LINE < CARRIAGE REl URiT? 

1640 NEXT JSi! RETURI'-I 

1650 REM READV PRINTER 

1 660 POKE 1 :. 27 s X:K=IJSR < 9 > : POKE 1 , 75 s XK^IJSR < 9 > - POKE 1 I..J2 
1 670 X^-^ -"U^SF? C y " PC!KE 1 . : ;^-;X^==USR C i3 > s IRETUR!'-! 
1680 REM UERTICAL LHIE COMPARISON 

1 690 ZU=MT X c: PR < NS > , MS . 4 > 

1700 IF ZU--KS>=0 AND ZU-KS-'l THEN SS=lsGOTO 1690 
1 7 i. kii I F' SQh-l c; ZU-"!<:S; > < >MTX < I='F;: >.. NS > . MS . 5 > THEI-1 1 730 
1720 GOTO 1600 

1730 NS^^=hlS+1 n SS=0: MS:^=1 iilF NS>NP THEN 1610 
1740 GOTO 1560 

IP.(H® REM FORM FEED FOR NEXT UIEW 

1810* POKE 1,128 x:«:=USR < > s REM SEND FORM FEED CHARACTER 

TO PRI^^TER 
1820 RETURN 

1900 REM ROTATE POINTS ABOUT AN AXIS 

1910 FOR J"l TO TP 

1920 I F B^- " Z " T1-IEN A 1 J > s A2^=R: C 1 > " A3=='i' CJ>" A4=^R < 2 
1930 I F B*== "' " THEN A 1 fi2=R <. 1 > " h3=Z C J s A4-R < 3 > 

1940 I F " " Tl lEN A 1 < J > " A2-=R < 2 > s A3--Z •■; J > m~R < 3 > 

1 950 P 1 "A 1 -A2 s P2^^^^M"i3- A4 
I960 L=SQR <: F 1 *P 1 +P2*P2 > 

1970 IF P2=0 THEN A5= <P1<0>*3„ 141593 

1980 IF P1==0 THEN A5==SGHa"'2>*l ., 570796 

1 990 I F P2< >0 AI^C' P 1 < >0 THE;f-l AS^i-iTi^'l F I - < P i < > ^'i'-S ., 1 -1- 1 :::'':-3 
2SS9 A5^=^M--!5-'-E 

20 10 IF B$== " Z " THEN X ■:: J > ^==LH'm:;OS < (^'5 > + R J. > - V < J > =M...*S I H C A5 M< C 2 ;• 
2020 I F B$^= V " THEri X < J ^==L.*COS C A5 > i-R < 1 > s Z < J > ==L*S I N < jA5 > +R C 3 > 
2030 I F B*== " X " THEN V < J > =L*COS < A5 > +R< 2 > s Z < J > =L*S I N C A5 > +R < 3 > 
2040 NEXT J s RETURN 
READS' 
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This program contains seven main sub- 
routines, found in lines 200-204G. The main body of 
the program is in hnes 10-120. Lines 1040 identify 
the program. Line 50 is a subroutine call to lines 
200-770, where the data is read into arrays and the 
values of the variables are set. Line 60 is a sub- 
routine call to lines 900-1040 where the polygons 
are sorted by distances to midpoints. Line 70 is 
a subroutine call to line 1100 where the three- 
dimensional coordinates are translated to a tv/o- 
dimensional perspective set of points. Line 80 is a 
subroutine call to lines 1300-1430. This subroutine 
completes or redefines the data in the MTX matrix. 
The MTX matrix contains data on point connec- 
tions, slopes and intercepts of lines between 
points, and the positions of the midpoints relative 
to the lines of the polygons. Line 90 is a call to the 
subroutine in lines 1500-1740, which prints out the 
figure in high-resolution. Line 100 calls the sub- 
routine in lines 1800-1820 which cause a form feed 
to position the next sheet of paper in the printer. 
Line 110 is a call to lines 1900-2040 where the 

nr^'ntQ nnH rniHnninf'^, fnr thp fiPYt view 3re rotated. 

Line 120 sends program control to line 60 to con- 
tinue the process. 

Let's look at some of the important lines in this 
program. In line 210, IP is the number of points 
(X,Y,Z) in the program, and NP is the number of 
polygons in the program. TP is their sum. In line 
220, PR is an array that holds the priority, i.e., 
relative closeness to viewpoint, of the polygons. 
Lines 260-330 contain the X, Y, andZ coordinates of 
the IP points. Lines 340-440 define a midpoint for 
each polygon by finding the mathematical average 
of the coordinates of the points of the polygon. 
Lines 410-680 define the polygons. Take, for 
example, line 410, which contains the data for the 
first polygon. Using that data the computer will 
drav.' 2 line from point 4 to point 27 to point 26 to 
point 37 and back to point 4 again. These are bound- 
ary lines for the first polygon. Tne data for tiie 
second polygon is in line 420 and so forth. 

Lines 800-880 are a simple machine-language 
subroutine that sends number to the printer. You 
can substitute a BASIC subroutine or another sub- 
routine if you like. This routine was used because 



some BASIC interpreters insert a carriage return 
after a given number of characters have been 
printed. Lines 1500-1640 search for the top of the 
figure (to save time) and then print out the object. 
Line 1560 is a check to see if the hne is vertical. If it 
is, the computer goes to line 1680. If not ZV is 
calculated from the slope and intercept data in the 
MTX matrix. ZV is the correct vertical position (for 
that line for the pixel KS. Line 1580 says that if the 
pixel is in the current polygon line, set SS equal to 
1, then goto line 1600. Line 1600 increases the 
polygon line counter by 1 and checks to see if the 
counter MS, is less than what we said the number of 
lines in the polygon were originally. (Remember 
lines 410-680?) If the pixel is on the same side of all 
the polygon lines as the midpoint is, then SS is sent 
to the printer. If SS is 1, a dot is printed; if SS is 0, a 
space is printed (an empty dot). Line 1590 checks to 
see if the pixel is one the same side as the midpoint. 
If a pixel ever fails to be on the same side as the 
midpoint, we check the next sorted polygon. If the 
pixel does not lie within any polygon, an empty dot 
is nrinted and we move to the next pixel oosition. 
NS is the polygon counter in the program. 

Possible Changes to the Program 

Polygons can be shaded by adding the follow- 
ing lines: 

765 GOSUB 2100: REM READ SHADING 
DATA 

2100 REM READ SHADING DATA 
2110 FOR J=l TO NP:READ CR(J):NEXT 
J: RETURN 

2120 DATA (NP number of values between and 
1) 

227 DIM CR(NP) 

(1))*-1 

Here line 2120 contains numbers that tell what 

and 1 being 100%. Line 1605 changes an empty dot 
to a dark dot (inside a polygon) a certain percentage 
of the time according to the data in line 2120. 

Another possible alteration is to change the 
dark pixels of a line to white in order to create 
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polygons that appear to have interior angles great- 
er than 180 degrees. Actually you would use more 
than one polygon, but simply erase the lines 
separating them. This change could be very useful 
for applications in which you must use large interior 
angles. You can also change the program by chang- 
ing the widtli, WID, and the height, HGT, of the 
plot in pixels. 

A HIGH-RESOLUTION MOLECULAR MODEL 

We now look at a program similar to the one 



we saw in Chapter 3, except this one has spheres 
that are textured, highlighted, and shaded. ITierest 
of the features are the same. 

Figure 8-2 shows spheres that appear to be 
light near the center and dark near the edges. The 
illusion is that light is coming from behind you as 
you look at tlie spheres. The spheres also appear to 
have a rough texture, although that is lessened the 
larger the spheres become. Again, the parts of the 
spheres that are hidden are not printed. As in the 
other program, the left side of the model appears to 



1 REM H I i3H-F?ESi:ii.„UT I ON . SPACE F' I L.L 1 HQ 

20 REM ROT ATI HG MOLECULAR MOC'EL 

30 REM WRITTEN BV TIMOTHV J. 0M1ALLEV 

40 REM COPVRIQHT 1982:. TAB BOOKS INC, 

50 REM 

60 GOSUB 1001! REM I|-.|ITI ALIZE PROGRAM AND READ DATA 

70 GOSUB 200 s REM SORT BV DECREASIMG DISTANCES TO UIEWPOINT 

90 GOSUB 400 s REM PLOT POINTS AI'ID PRINT OH PAPER 

35 GOSUB 800: REM FORM FEED FOR NEXT UIEW 

90 GOSUB 6005 REM ROTATE POINTS ABOUT AN ftXIS 

95 GOTO 70! REM REPEAT ROTATION AND PRINTING INDEFINITEL V 

100 REM INITIALIZE PROGRAM AND READ DATA 

1 1 E==^0 ., 4- : N 1 1 2 1! Ri::'==0 ., '5 s I" ==^^0 „ J, s i3^=0 „ 99 HG T^^ 1 92 " hi I D= 1 &0 « U2=8i;:i 

1 20 D I M K c; N 1 > .;• N 1 > ;, Z ( N 1 . '..i < N 1 > . H C N i, > . R:3 < Wl > , D I < N 1 > . R (. 3 > 

1 Z0 FOR J= 1. TO N 1 !; "^Ef-iC' K C J > . < J > Z. < J > i: NE:;KT .t 

1 i;:'ATf-| 13 . ;. :. „ 15 Q . !=:7' , J, „ 5 . „ 87 2 J 

1 '50 Dl-lTi-l 1 ,. 5 . 13 „ 87 „ '5 . :■ - ., 137 l3 l3 . 3 ., "5 Q „ "5 ■48 1. i3 „ 3 ■48 

1 60 DATiii '4 „ 5 ., :54Q . & „ ^43 -.■ 5 . ei B , 4 , 5 „ 'Z4B -.■ 8 „ .3.-18 

1 70 DATi^i Z . 5 - 8 ., :3.-M3 :■ - B „ 3.^:| ;3 

180 GOSUB 510" REM SET UP MAl;NIIIE [..ANGUAaEi: SUBROiUIME 
FOR FRUITER 

1 90 R 1 ) ::^^:;2 , 5 !i R ( Z ) :i R < 3 > s K C =2 . 5 " < 8 ) ' i, 8 » Z C B > J. i! B^-= " Z. " 

195 RETURN 

200 REM SORT BV DElREfiSING DISTANCES 'TO UIEIIPOTNT 

202 FOR J=i TO Ml 

20.4. D'v'=V J > - V ( 8 ' s I F D',' ■ =9 ThlEl I i='P I NT " DECREASE ',' ■ , B > " " STOP 

206 DX=K < J > -X ■' > s DZ=»Z ''■ J - Z. '". B -j 

208 D I .J > ^=-3QF? ( i3S':'N:'','+ixk:^n:':k+t:'Z:*d •;: > s Rs ( '} '.' ^:^M-rn i ( f*rp d 1 >: j > 

:209 u >: J ) ^^:^4YrN c; f*C'Z 4:3',' - h •: J > at n < F*i'>t !:•',' next ,t 

210 FOR j=i ro Ni-" i!U=>=.r 

2213 I F 1;:' I C KM- 1 ■) <■ ^^^13 1 < K Tl !!E! I 270 

230 A^-XXIO s X'';K>=X<K i-1 ) " X<1<+1 >=:h;i A™'r 'MO " ','<!<> ""'r ''L i' :i > " 'r-'cK i 1. >~=A 

:240 A=z ( K :.' 5 z c i< ) ^^^^3 c: i<:-!- :!, ) 11 ,3 •■; !<••!- 1 ^^=1-1 » i-f^tj =; k: s tj < i-:- > =i j !■:•:■! j. > ; u c; « i 
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•■n c K-1- 1 > !! hi i< -1 .1. > =f-i " f-\-RS ( K > s Rs i< =Rs >■: k+ i > " 



255 
260 
270 
280 
2:85 
290 

300 

31.0 
320 
330 
:340 
350 
2.60 
370 

•400 

405 
406 
410 
420 
430 
44S 
450 

453 
455 
460 
470 
480 
490 

500 

5 1. 
520 
1530 
540 

600 

610 
iS2i5 
6:30 
6'4-0 
650 
660 
670 
6.361 
S90 



l> +F:SCi > 



250 H=Ha<> s H<K>^ 

f:^==C' I < K > i: D I K > i: < K+ 1 > : D I < ! v-i 1 > ^^^^-i 
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Fig. 8-2. Partial rotation of shaded molecular models. 
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swing toward the observer as you look at the 
figures. 

This program is identical to Program 7 with 
the exception of lines 453 and 455. What these lines 
do is to print a dark pixel as the edge of the sphere is 
approached. That is, the likelihood that a pixel will 
be printed is greater as the pixel is closer to the 
circumference of the sphere; the probability is zero 
at the center and 100% at the edge. 

You could change tlie progi'am to make some 
spheres darker than others, to make some spheres 
larger than others, or to alter the height and width 
of the image. You could also change the direction of 
rotation or rotate only part of the figure. 

USING THE VIDEO SCREEN EFFECTIVELY 

When using the video screen on a microcom- 
puter a cnicial factor is speed. Hidden line al- 
gorithms are notorious for being slow-working 
"number crunchers." An effective video display 
should not bore the user while he is waiting for 
figures to appear on the screen. We will discuss 
uHciiy 50mc Vvays lO circuiiivcriL uiio proGiCiu. 

The Use of Machine Language 

BASIC is really not the best language to use if 
one wants to write a program using graphics real- 
time; machine-language is. Machine-language has 
the drawback of being very difficult to program. You 



can, however, solve this obstacle by using 
machine-language subroutines liberally througout a 
BASIC program. Simple but slow routines could be 
changed to machine-language and the rest could be 
left in BASIC. Every bit helps (no pun intended). 

Sprites 

Many newer microcomputers use sprites. 
Sprites are a group of pixels organized like a giant 
graphic character, but they can be easily moved 
about the entire screen, not simply from line to line 
as graphic characters can be. Their use greatly 
increases the speed of display. 

Sprites also have the advantage of being of 
ordered priority. This means that if parts of two 
sprites occupy the same area on the screen, the one 
with the greater priority will be displayed on top of 
the other one. Sprites can have colors as well. 

Other Techniques 

Other techniques to increase speed of display 

; 1..,S ,,„ !-U« „-.-n^.U-.^„ T^r1^;!.o fV.= 

user is reading text at the start of a program or 
game; using the INKEY$ function or another 
keyboard scanning routine so that the computer can 
be computing while waiting for your response; re- 
ducing computation as much as possible; and saving 
figures and data in memory. 
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A 

Abstract, Low-Resolution Art pro- 
gram, 108-113 
Animated graphics, types of, 131 
Animated Graptiics program, 1 32, 1 33 
Architectural drawing, 87-93, 138-144 
Art, abstract, high-resolution, 113-130 
Art, computer, 4, 94-130 
Art, mathematically defined, 102 
Art, realistic, high-resolution, 102-108 
Art, realistic, low-resolution, 102 
Axonometric projection, 21 

B 

Bar graphs, 7-13 

C 

Cartesian coordinates, 13, 14 

Chessboard and Screen Dump pro- 
gram, 97-102 

Components, movable, 97-102 

Computer art, 94-1 30 

Computer art, computer-generated, 
95 

Computer art, handmade method, 
94,95 

Computer art, types of, 94, 95 
Computer graphics, varieties of, 2-6 

D 

Definitions, mathematical, 2 
Diagrams, 20 
Dot matrix displays, 78 
Drawing, architectural, 87-93, 
138-144 

E 

Equations, transformation, 21 , 22, 48, 
49, 57 

G 

oames, arcade type, 131 
Games, programmable, 131 
Geometric shapes, plotting, 49-54 
Geometric shapes, rotated, 49-54 
Graph, definition of, 7 
Graphic motion, types of, 133 
Graphics, abstract, 6 
Graphics, advanced, 138-148 
Graphics, animated, 131-137 
Graphics, bit image, 22, 78 



Graphics, block, 22, 76 
Graphics, definition of, 1 
Graphics, future, 136, 137 
Graphics, high-resolution, 76 
Graphics, interactive, 6 
Graphics, low-resolution, 76 
Graphics, noninteractive, 6 
Graphics, realistic, 4,5 
Graphics, varieties of, 1 , 2 
Graphics characters, types, 76-78, 95 
Graphics characters, user-defined, 

76-78 
Graphs, bar, 7-13 
Graphs, perspective, 21, 22 
Graphs, three-dimensional, 21-47 

H 

Hidden lines and points, 22, 78 
High-Resolution, Space-Filling Ro- 
tating Molecular Model program, 
39-47 

High-Resolution, Space-Filling Ro- 
tating Molecular Model program 
(shaded), 145-148 

High-Resolution Abstract Art program 
(spiral), 126-130 

High-Resolution Abstract Art program 
(triangle), 123-126 

High-resolution graphics, definition, 
76 

High-Resolution Line Plotter program, 
54-57 

High-Resolution Plotter program, 
78-84 

High-Resolution Realistic Art pro- 
gram, 102-108 

High-Resolution Realistic Art (space 
shuttle) program, 95, 96 

High-Resolution Solid Figure of a 
House program, 138-144 

High-Resolution Space Shuttle Sim- 
ulation program, 69-75 

Histogram Graphing program (using 
graphic character), 11-13 

Histogram Graphing program (using 
H), 8, 9 

Histograms, 7-13 

Histograms, advantages of, 1 3 

Histograms, disadvantages of, 13 



I 

Images, still, 95-97 
L 

Line Plotter program (high-resolution), 
54-57 

Line Plotter program (low-resolution), 

49-54 
Lines, hidden, 22, 78 
Lissajous Patterns program, 134-136 
Listing, High-Resolution Realistic Art 

program, 103-106 
Listings, Abstract, Low-Resolution Art 

program, 110-113 
Listings, Animated Graphics program, 

132 

Listings, Chessboard and Screen 
Dump program, 97-101 

Listings, High-Resolution Abstract Art 
program (spiral), 126-129 

Listings, High-Resolution Abstract Art 
program (triangle), 123-126 

Listings, High-Resolution Line Plotter 
program, 54-56 

Listings, High-Resolution Plotter pro- 
gram, 78-83 

Listings, High-Resolution Realistic Art 
program (space shuttle), 95, 96 

Listings, High-Resolution Solid Figure 
of a House program, 139-142 

Listings, High-Resolution, Space- 
Filling Rotating Molecular Model 
program, 40, 41 

Listings, High-Resolution, Space- 
Filling Rotating Molecular Model 
program, (shaded), 145-147 

Listings, High-Resolution Space 
Shuttle Simulation program, 
69-74 

Listings, Histogram Graphing program 
(using graphic character), 11-13 

Listings, Histogram Graphing program 
(using H), 8, 9 

Listings, Lissajous Patterns program, 
134 

Listings, Low-Resolution, Line Plotter, 
49-51 

Listings, Low-Resolution, Space- Fill- 
ing Rotating Molecular Model 
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program, 30-39 
Listings, IVIoire Patterns program, 113 
Listings, Natural Scene program, 93 
Listings, Ttiree-Dimensional High- 
Resolution Function Plotter 
program, 85, 86 
Listings, Three-Dimensional Plotter 
program (higln-resolution), 27, 
28 

Listings, Tliree Dimensional Plotter 
program (low-resolution), 24, 25 

Listings, Tiiree-Dimensional Solid 
Plotter program, 88-91 

Listings, Two-Dimensional Plotter pro- 
gram, 15-17 

Low-Resolution, Space-Filling Rotat- 
ing Molecular Model program, 
30-39 

Low-resolution graphics, definition, 76 
Low-Resolution Line Plotter program, 
49-54 

Low-Resolution Space Shuttle Simu- 
lation program, 57-69 

M 

Machine-language, 148 
Mathematical definitions, 2 
Mathematically defined art, 102 
Models and simulations, 1 32 
Moire patterns, 6 
Moire Paiierns proyiain, i i3-123 
Molecular models, 21-47 
Molecular models, high-resolution, 
39-47 

Molecular models, low-resolution, 
30-39 

Motion methods of accomplishing, 
133, 134 

Motion achieved by printing and eras- 
ing, 133 

Motion achieved by using the Poke 
function, 133 

Motion achieved by using machine- 
language and the USR function, 
134 

N 

Natural Scene program, 93 



Oblique line projection, 21 
P 

Patterns, moire, 6 
Perspective, definition of, 48 
Prospective line plotters, 49-57 
Perspective plotting, 48, 49 
Plot, definition of, 7 
Plots, polar coordinate, 20 
Plotters, large-scale, high-resolution, 
78-87 



Plotting, perspective, 48, 49 

Points, hidden, 22 

Pol<e function, 132 

Polar coordinate plots, 20 

Printers, dot matrix, 78 

Program explanations. Abstract, 

Low-Resolution Art program, 

113 

Program explanations. Animated 
Graphics, 133 

Program explanations. Chessboard 
and Screen Dump, 97 

Program explanations, High- 
Resolution Abstract Art (spiral), 
130 

Program explanations, High- 
Resolution Abstract Art 
(triangle), 126 

Program explanations, High- 
Resolution Line Plotter program, 
56, 57 

Program explanations, High- 
Resolution Plotter program, 83, 
84 

Program explanations, High- 
Resolution Realistic Art, 108 

Program explanations, High- 
Resolution Solid Figure of a 
House, 144, 145 

Program explanations, High- 

ncjbuiuiioii, Spauc-Filiii ly Roiai- 

ing Molecular Model program, 
41-47 

Program explanations, High- 
Resolution, Space-Filling Rotat- 
ing Molecular Model (shaded), 
145, 148 

Program explanations, High- 
Resolution Space Shuttle Simu- 
lation program, 74, 75 

Program explanations, Histogram 
Graphing program (using 
graphic character), 13 

Program explanations. Histogram 
Graphing program (using H), 
9-11 

Program explanations, Lissajous 

Patterns, 134-136 
Program explanations, Low- 

I lOOUfUtt\^M L-IIIC; 1 IWllOl, 1 -^-T 

Program explanations, Low- 

0^-^,1, Op^-^-^'^ rr;M:rr-T o^f^^,. 

ing Molecular Model program, 
32-39 

Program explanations, Low- 
Resolution Space Shuttle Simu- 
lation program, 63-69 

Program explanations. Moire Pat- 
terns, 113-123 

Program explanations, Natural Scene, 
93 



I Program explanations, Three- 
Dimensional High-Resolution 
Function Plotter, 86, 87 

Program explanations, Three- 
Dimensional Plotter program 
(low-resolution), 26, 27 

Program explanations, Three- 
Dimensional Plotter program 
(low-resolution), 28-30 

Program explanations, Three- 
Dimensional Solid Plotter, 91-93 

Program explanations, Two- 
Dimensional Plotter program, 
17-20 

R 

Resolution, 22 

Rotating points about a defined axis, 
57 

Rotating points about an arbitrary axis, 
57 

Rotating points in space, 57 
Rotation of images, 22 

S 

Shuttle Simulation program, 57-63 
Space shuttle simulation (high- 
resolution), 69-75 
Space shuttle simulation (low- 
resolution), 57-69 

P.nritec -iAP. 

Still components, 97-102 
Still images, 35-97 

T 

Transformation equations, 21, 22, 48, 
49, 57 

Three-dimensional graphs, 21-47 

Three-Dimensional High-Resolution 
Function Plotter program, 84-87 

Three-dimensional perspective, 48-75 

Three-Dimensional Plotter program 
(high-resolution), 27-30 

Three Dimensional Plotter program 
(low-resolution), 23-27 

Three-dimensional solid figure plot- 
ters, 87-93 

Three-Dimensional Solid Plotter pro- 
gram, 87-93 

Thresholding, 94, 95 

Two-dimensional graphic, 7-20 

Two-Dimensional Plotter program, 
15-17 

Two-dimensional plotting, purposes 
of, 20 

V 

Video art, 4 

Video screen, effective use of, 148 
Z 

Z axis, 21, 22 
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(continued from front flap) 



You'll learn how to make histo- 
grams , . , Cartesian plots . , . 3-di- 
mensional figures that can be rotated 
on an axis . . . 'pictures" made by plot- 
ting mathematical functions . . . and 
more. Most programs are presented for 
both high- and low-resolution systems 
- . . and every one is clearly explained^ 
fine by line. In addition to each program 
listing, you'll also find sample runs and 
program results. 

With the help of this handbook, 
you'll discover how to best use the 
unique graphic capabilities of your own 
micro for practical purposes , , . and for 
fun! You'll even learn how you can 
create your own animated graphics for 
arcade-type video games. Specific, 
easy-to-fo low how-to's are included for 
printing and erasing, using the POKE 
function, machine language, and the 
USR, 

Filled with drawings, diagrams, 
examples, and easy-to-run programs, 
this book will show you how you can 
use almost any microcomputer to create 
exciting and practical graphics for busi- 
ness or for play! 

Timothy O'Malley is a freelance 
technical writer with extensive pro- 
gramming experience. 
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An outstanding 
programming handbook 
that shows you how to take full 



advantage of your micro's 
graphics capabilities! 
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